Pasha2O98357, Очень просто
=========
Option Explicit
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:
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
End Sub
Private Sub Command2_Click()
"Закрыть дверцу CD-Rom:
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
End Sub
Ссылка на пост
22 июн 2009 в 15:54