El código que expongo abajo es de Rodolfo Duarte lo obtube de aquí hace bastante tiempo. La función que hace es abrir la unidad de CD.
DECLARE integer mciSendString IN WINMM.DLL string, string, integer,integer
m.CDDrive = 'G:'
mciSendString('Open '+m.CDDrive+' type CDAudio alias CD2', Null, 0, 0)
mciSendString('Set CD2 door open wait', Null, 0, 0)
Me gustaría saber como puedo cerrar la bandeja de la unidad de CD ?
--------------------------------------------------------------------------------------------------------------
"El objeto más noble que puede ocupar el hombre es ilustrar a sus semejantes"
Simón Bolívar
"El Libertador"
Estadista y Militar Venezolano