ugenux
15 de Julio del 2004

Existe un código o programa para abrir la tapa del CD-ROM, al presionar un boton....

sdemingo
15 de Julio del 2004

Hola,

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

Private Sub Command1_Click()
' Abro la bandeja
Dim lngReturn As Long
Dim strReturn As Long

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

End Sub

Private Sub Command2_Click()
' Cierro la bandeja
Dim lngReturn As Long
Dim strReturn As Long

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

End Sub

salu2
sdemingo
http://boards.melodysoft.com/sdemingo
http://boards.melodysoft.com/capoeira-madrid

ugenux
15 de Julio del 2004

Gracias por tu ayuda..... Estaba totalmente bloqueado......