RE:Expulsar y contraer lectora de cd
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