Трюки с CD-Rom

Если Вам надоело постоянно нажимать кнопку CD-ROM'а, или Вы хотите создать программу которая сама открывает его дверцу, то вам может помочь следующий код.

'Объявление функции управления CD-ROM
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

'задание кода для кнопки cmdOpen - открытие Cd-Rom
Private Sub Command1_Click()
Dim retValue As Long
retvalue = mciSendString("set CDAudio door open",returnstring, 127, 0)
End Sub

Private Sub Command2_Click()
Retvalue = mciSendString("set CDAudio door closed", _

Returnstring, 127, 0)

'задание кода для кнопки Command2 - закрытие Cd-Rom

End Sub

Данный пример можно использовать для создания музыкального приложения, которое будет автоматически открывать и закрывать CD-Rom.