Esto lo poneis en un módulo:
Option Explicit
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
Esto en el formulario:
Crea dos botones y copia el siguiente código en el formulario.
Option Explicit
Private Sub Command1_Click()
' Abrir bandeja CD-Rom
mciSendString "set CDAudio door open", "", 127, 0
End Sub
Private Sub Command2_Click()
' Cerrar bandeja CD-Rom
mciSendString "set CDAudio door closed", "", 127, 0
End Sub
------------------------------------------------------
Ahora me falta el código para abrir la grabadora si sabes como conseguirlo mandame una respuesta. Gracias guru guru.
|
