API para abrir y cerrar la bandeja de la unidad Cd-ROM



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

'pon un boton en el form y este codigo asociado
Private Sub Command1_Click()
'Para abrir la puerta :
Dim res As Long, returnstring As String * 127

   MsgBox "antes de abrir la puerta del CD", vbInformation + vbOKOnly, "aviso"
   res = mciSendString("set CDAudio door open", returnstring, 127, 0)

'Para cerrarla :

'Dim res As Long, returnstring As String * 127
   MsgBox "antes de cerrar la puerta del CD", vbInformation + vbOKOnly, "aviso"
   res = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub