ejecting cd-rom

[bcx7]

i want the code to eject a cd rom and then code to make the tray go back in to the computer.

thanks

Make a Form with 2 CommandButtons. Call them cmdOpen and cmdClose.

Private 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

Private Sub cmdOpen_Click()

    ' Open the CD Drive
    mciSendString "set CDAudio door open", t, 127, 0

End Sub

Private Sub cmdClose_Click()

    ' Close the CD Drive
    mciSendString "set CDAudio door closed", t, 127, 0
    
End Sub

[bcx7]

i got two cd-roms in my computer. how can i get it to eject the other one? (it only eject the d

[Infojens]

I have the same problem have you found a code sample ??

[rv2k]

Can someone post some code on how to check if the CD tray is open or closed.