Private Declare Function mciSendString Lib "winmm.dll" Alias
"mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Dim Status As Integer
'Открыть
Private Sub Command1_Click()
Status = mciSendString("Set CDAudio Door Open Wait", 0&, 0, 0)
End Sub
'Закрыть
Private Sub Command2_Click()
Status = mciSendString("Set CDAudio Door Closed Wait", 0&, 0, 0)
End Sub |
|
