Make your CD-ROM drive open using the mciSendString API.
Make your CD-ROM drive open using the mciSendString API.
API Declarations
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
Rate Make your CD-ROM drive open using the mciSendString API.
(1(1 Vote))
1) named "Open"
2) Named "Close"
' Write those lines to open:
Private Sub Open_Click()
mciSendString "Set cdaudio door Open", returnstring, 127, 0
End Sub
' Write those lines to close:
Private Sub Close_Click()
mciSendString "Set cdaudio door Closed", returnstring, 127, 0
End Sub
' Thats all! Try it out by clicking one of the buttons :)
Make your CD-ROM drive open using the mciSendString API. Comments
No comments yet — be the first to post one!
Post a Comment