manuel22
16 de Diciembre del 2003

hola,a ver si alguien me ayuda, necesito abrir la puerta de la grabadora(SE COMO ABRIR EL CD DE AUDIO),pero no lo consigo con la grabadora.
gracias de antemano

sdemingo
16 de Diciembre del 2003

Hola,

supongo que esto es lo que tienes sobre la unidad de CDROM.

‘

‘ Abrir y cerrar la unidad de CD desde sus programas

‘





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





‘

‘ Código

‘

Private Sub Command1_Click()

Dim lngReturn As Long

Dim strReturn As Long



‘

‘ Abrir unidad de CD

‘

lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)

End Sub



Private Sub Command2_Click()

Dim lngReturn As Long

Dim strReturn As Long



‘

‘ Cerrar unidad de CD

'

lngReturn = mciSendString("set CDAudio door closed", strReturn, 127, 0)

End Sub


Suerte, y si lo consigues dinos cómo lo has hecho.... ;-)

sdemingo

manuel22
16 de Diciembre del 2003

hola, me adjuntaste el codigo para la apertura de la puerta del la unidad de cdrom, estoy buscando para la regrabadora,ya tenia este codigo,pero no consigo hacer para que me abra la grabadora en lugar del CDROM.
De todas formas muchisimas gracias.