Open & Close CD-ROM
Open & Close CD-ROM
API Declarations
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Rate Open & Close CD-ROM
(1(1 Vote))
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
End Sub
Private Sub cmdClose_Click()
retvalue = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)
End Sub
Open & Close CD-ROM Comments
No comments yet — be the first to post one!
Post a Comment