How to Control CD Drive operation? 2

[zjlu2715]

Is there any way one can control CD or CDRW drive such as Eject CD or eject CDR & leave data in original format and so on. I'd like to provide a function in my code to do what EasyCD Creator does where I can click on the icon in system tray to eject a CDR.

 

[robsuttonjr]

Try this:

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 cmdTrayOut_Click()
x = mciSendString("set CDAudio door open", 0&, 0, 0)
End Sub

Private Sub cmdTrayIn_Click()
x = mciSendString("set CDAudio door closed", 0&, 0, 0)
End Sub

 

[zjlu2715]

Rob,

That worked nicely. Thank you.

Jason

 

[PockyBum522]

What about multiple cd rom drives?