Quick question - Ejecting C.D drive

What is the code to automatically eject the C.D drive?

 

isnt that a system file to do that?

 

I've seen it done before, but maybe I am wrong. Oh well, thank you anyway.

 

Code:

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

mciSendString "set CDAudio door open", strReturn, 127, 0 'open

mciSendString "set CDAudio door closed", strReturn, 127, 0 'close

 

Thanks Covey!