Computer - Aprire E Chiudere Il Cassettino Del Lettore CD-Rom

CD ROM # Dichiarazioni
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
Apre il cassetto...
Dim retvalue As Long
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
... e lo richiude
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)