Открытие и закрытие CD-ROM
Для открытия и закрытия дверци CD-Rom необходимо продекларировать функцию mciSendString:
Public 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&)
|