| Pregunta: | 40046 - MANIPULAR UNIDAD DE CD-ROM POR MEDIO DE UN PROGRAMA EN VB |
| Autor: | Darwin Ibarra Gutierrez |
| Quiero saber el codigo fuente para manipular la unidad de CD-ROM, como expulsarla, desactivarla, etc. | |
| Respuesta: | SuNcO |
| Para abrir y cerrar la unidad : 'Añade dos CommandButtons a tu formulario 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() 'Se abrirá el CD retvalue = mciSendString("set Cdaudio door open", returnstring, 127, 0) End Sub Private Sub Command2_Click() 'Se cerrará el CD retvalue = mciSendString("set Cdaudio door closed", returnstring, 127, 0) End Sub | |