• Jueves 21 de Febrero de 2019, 00:23

Autor Tema:  Expulsar lectora de CD SATA  (Leído 314 veces)

juvinalch

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Expulsar lectora de CD SATA
« en: Miércoles 16 de Enero de 2019, 01:13 »
0
Hola a todos, desde ya agradezco por su ayuda
Estoy realizando un aplicativo para leer archivos y resulta que en la máquina donde funcionará tiene una lectora, de donde también se pretende leer el contenido de los CDs y ayudaría bastante al usuario que pueda abrir la bandeja de la lectora y cerrarla también. Estuve viendo algunos foros y me encontré con lo siguiente:
// COMO FUNCION LOCAL EXTERNA
Function long mciSendString( ref string strsend, &
ref string strret, &
uint returnSize, &
long handle) Library "WINMM.DLL" &
alias for "mciSendStringA"

// EN EL BOTON ABRIR LECTORA
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

Y se supone que debería funcionar, pero no se que hago mal, pero no me ejecuta, tendrá algo que ver que mi lectora sea SATA ?, no me sale ningún error, pero no me expulsa la lectora, es como sino hiciera nada. Les rogaría si tuviesen algun ejemplo descargable. Gracias