Power Builder - Expulsar y contraer lectora de cd

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.

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

Gracias por la ayuda. Saludos!