Power Builder - Expulsar y contraer lectora de cd

   
Vista:

Expulsar y contraer lectora de cd

Publicado por wilder (2 intervenciones) el 11/10/2007 04:37:01
Hola como estan ... estoy haciendo una aplicacion para mi pc que me permita gestionar algunos recursos ... y quisiera sabes como puedo expulsar y contraer la lectora de cd o dvd, bueno espero sus comentarios gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Expulsar y contraer lectora de cd

Publicado por alberto (73 intervenciones) el 11/10/2007 15:29:06
Sencillo.
/**************************
En local external funtions
**************************/
Function long mciSendString( ref string strsend, &
ref string strret, &
uint returnSize, &
long handle) Library "WINMM.DLL" &
alias for "mciSendStringA"

/**************************************************************
en el código desde donde quieres manipular la bandeja:
**************************************************************/
string ls_command_open = "set CDAudio door open"
string ls_command_close = "set CDAudio door closed"
string ls_null; setnull(ls_null)
uint rsize = 1024

messagebox("Abrir", "Ahora voy a abrir la bandeja")

try
mciSendString(ls_command_open, ls_null , rsize , handle(this) );
catch (runtimeerror re)
messagebox("Error",re.Text)
end try

messagebox("Cerrar", "Ahora voy a cerrar la bandeja")

try
mciSendString(ls_command_close, ls_null , rsize , handle(this) );
catch (runtimeerror re1)
messagebox("Error",re1.Text)
end try


También puedes utilizar comandos de la siguiente forma

open H: type CDAudio alias driveH

donde H es la unidad y driveH es un alias para luego poder cerrar la bandeja

set driveH door closed

Espero te sirva.
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Expulsar y contraer lectora de cd

Publicado por wilder (2 intervenciones) el 12/10/2007 00:08:40
Gracias por la ayuda. Saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar