• Home
 · 
• Miscellaneous
 · 
• Open & Close CD-ROM

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
• 2
• 3
• 4
• 5

(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