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
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&) ‘ открыть
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)’закрыть
Cd-rom
Как программно открыть и закрыть cd-rom.:cool:
А вот код:
Код:
Быстро. :cool: Спасибо.:D
Просто таких тем знаешь, сколько прошло на этом форуме… :D