SoloCodigo

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

Muchas gracias por su ayuda.
Recibí la colaboración de una persona en la red que me planteo crear un archivo BAT con el siguiente código:

@echo off
echo Run open/close protocol
echo Drive tray open
nircmd.exe cdrom open E:
pause
echo Drive tray close
nircmd.exe cdrom close E:

El archivo BAT lo ejecuo mediante linea de código desde Power Builder y funciona a la perfección.
Muchas gracias por sus respuestas, yo lo solucioné así.