' Открыть / закрыть дверцу CD-ROM
' добавьте две кнопки с именами Command1 и Command2
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 Command1_Click()
' Открыть дверцу CD-ROM
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub
Private Sub Command2_Click()
' Закрыть дверцу CD-ROM
mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub
Private Sub Form_Load()
Me.Caption = "Дверцу CD-ROM..."
Command1.Caption = "Открыть"
Command2.Caption = "Закрыть"
End Sub
Открыть / закрыть дверцу CD-ROM (1 309 байт)