Россия

Открытие и закрытие CD-ROM

Дата публикации: 04.01.2016

Для открытия и закрытия дверци 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&)