Pregunta: | 3435 - COMO ABRIR Y CERRAR UN CD-ROM |
Autor: | Proteo |
Lo que me ha pasado es que he prestado el gabinete a una persona y ahora que me lo han regresado resulta que no sirve el boton de expulsion del CD-ROM, Alguien me puede ayudar para hacer esto. |
Respuesta: | Oswaldo Monagas |
Aqui he copiado y pegado esto de las respuestas en Preguntas Contestadas de la Web del programador 3426 - COMO SACAR LA BANDEJA DE CD EN VISUAL BASIC ME GUSTARIA QUE ME AYUDARAS CON LA CODIFICACION DE SACAR LA BANDEJA DE ENTRADA EN VISUAL ES QUE ESTOY HACIENDO UN PROGRAMA REPRODUCTOR DE CD Y SOLO ME FALTARIA ESO GRACIAS Si alguien tiene otra respuesta, o puede ampliarla, ruego la conteste GRACIAS RESPUESTA : Oswaldo Monagas Aqui te envio el codigo que necesitas para eso:En un módulo declaramos : 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 ´Y luego para abrir la puerta : dim res as long, returnstring as string*127 res = mcisendstring("set CDAudio door open", returnstring, 127, 0) ´Y para cerrarla : dim res as long, returnstring as string*127 res = mcisendstring("set CDAudio door closed", returnstring, 127, 0) Acuerdate que el codigo de Declaraciones "Declare ....." debe estar escrito en una sola linea y leelo para que te des cuenta que debes tener en el directorio C:\Wimdows\System el archivo winmm.dll Saludos |