Abrir y Cerrar el Cd....

12/09/2003 - 21:50 por Jorge Luis | Informe spam
Hola a todos...Gracias por la ayuda que puedan brindar.

VFP 6.0 -- SP5 -- Win98SE

Tengo una aplicación que realiza el respaldo de los archivos que sean
especificados por el usuario en la unidad de CDRoom.

En el formulario principal donde tengo las opciones de respaldo, tengo
dos "commandbuttom", uno para abrir la unidad cd, otro para cerrarla. La
funcion que utilizo para esto es la siguiente:


**********
DECLARE LONG mciSendString IN winmm.DLL;
STRING @lpstrCommand, ;
STRING @lpstrReturnString,;
LONG uReturnLength,;
LONG hwndCallback

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

El primero para abrir y el otro para cerrar.

Bueno...Cuando ejecuto mi formulario por primera vez, los botones para
abrir y cerrar la unidad de CD funcionan correctamente. Despues de
realizado el respaldo en el CD, los botones dejan de funcionar y para
abrir la unidad de cd, me tengo que ir al icono de "MiPc" y desde ayá
dar "expulsar", y asi poder liberar la unidad.

¿Por qué sucede eso?
¿Alguna otra funcion que pueda ser mejor que la mostrada arriba?



Gracias por la atención.

 

Leer las respuestas

#1 David Amador
14/09/2003 - 19:20 | Informe spam
Jorge ... esto no te debe sucedere utilizas algun OCX para la copia de
CD??? . A mi me sucedia lo mismo y lo solucione haciendo que el OCX
expulsara el CD el mismo

David Amador T.

Jorge Luis wrote in message
news:


Hola a todos...Gracias por la ayuda que puedan brindar.

VFP 6.0 -- SP5 -- Win98SE

Tengo una aplicación que realiza el respaldo de los archivos que sean
especificados por el usuario en la unidad de CDRoom.

En el formulario principal donde tengo las opciones de respaldo, tengo
dos "commandbuttom", uno para abrir la unidad cd, otro para cerrarla. La
funcion que utilizo para esto es la siguiente:


**********
DECLARE LONG mciSendString IN winmm.DLL;
STRING @lpstrCommand, ;
STRING @lpstrReturnString,;
LONG uReturnLength,;
LONG hwndCallback

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

El primero para abrir y el otro para cerrar.

Bueno...Cuando ejecuto mi formulario por primera vez, los botones para
abrir y cerrar la unidad de CD funcionan correctamente. Despues de
realizado el respaldo en el CD, los botones dejan de funcionar y para
abrir la unidad de cd, me tengo que ir al icono de "MiPc" y desde ayá
dar "expulsar", y asi poder liberar la unidad.

¿Por qué sucede eso?
¿Alguna otra funcion que pueda ser mejor que la mostrada arriba?



Gracias por la atención.


Preguntas similares