Programación General > Visual Basic 6.0 e inferiores

 Re: Abrir bandeja de la quemadora

<< < (2/2)

Lemus:
PLEX, tienes toda la razon....
asi como esta te causaria error en mciSendString... se me fue ese pequeñisimo error!!!

******************************************************************
Para abrir el lector:

Private Sub Command1_Click()
Dim Res As Long, ReturnString As String * 127
Res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
End Sub

Para cerrar el lector:

Private Sub command2_click()
Dim Res As Long, ReturnString As String * 127
Res = mciSendString("Set CDAudio Door Closed", ReturnString, 127, 0)
End Sub

------------------------------------------------------------------------------------------------------------
Te recomiendo que este código lo coloques en un modulo base....:

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

Suerte...!!!

.::LEMUS::.

Navegación

[0] Índice de Mensajes

[*] Página Anterior