В этом примере мы научимся открывать и задвигать дверцу CDroom'а. Первым делом создайте небольшую форму и оккуратно расположите на ней две кнопки. С именами cmdOpen и cmdClose и с заголовками открыть и закрыть соответственно. Хотя заголовки и имена могут быть любыми. Приступаем к кодингу! Сначало нам надо создать новый модуль, поместите туда следующий текст:
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&)
Ну вот все готово! Можите проверить, прога работает!