Abrir y cerrar CD-ROM
Hola:
mi pregunta es la siguiente:
Cómo hago, desde VB, para abrir y cerrar la lectora de CD-ROM.(sobre todo esto último) ?
muchas gracias
mi pregunta es la siguiente:
Cómo hago, desde VB, para abrir y cerrar la lectora de CD-ROM.(sobre todo esto último) ?
muchas gracias
Si miras en el buscador de www.jrubi.com estoy seguro encontraras algo (debes entrar en su WEB e ir a Buscador, poner una palabra y yata...)
Saludos clos, si entiendes de API's, aquí te envío algo de código que te puede servir con tu problema...
En la sección General del Form pegas lo siguiente:
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
Luego para abrir la bandeja del CD usas:
mciSendString "set CDAudio door open", "", 127, 0
y para cerrarla:
mciSendString "set CDAudio door closed", "", 127, 0
Espero te sirva...
Adiós y Suerte...
En la sección General del Form pegas lo siguiente:
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
Luego para abrir la bandeja del CD usas:
mciSendString "set CDAudio door open", "", 127, 0
y para cerrarla:
mciSendString "set CDAudio door closed", "", 127, 0
Espero te sirva...
Adiós y Suerte...
