Трюки с 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.