>No recuerdo de donde lo bajé, pero el siguiente código te sirve para ambas cosas:
>
>

>*!* Automatically open and close the default CD drawer.
>Declare Long mciSendString in winmm as mciSendStringA string lpstrCommand, ;
long lpstrReturnStr, Long wReturnLenLong, Long hCallBack
>local intReturn, nfilehandle
>=mciSendStringA( "Set CDAudio Door Open Wait", 0, 0, 0)
>intReturn = messagebox("Please insert a the CD and click OK", 0, ;
"Unable to locate CD...")
>=mciSendStringA( "Set CDAudio Door Closed Wait", 0, 0, 0)
>

>
>Saludos!

Cool! Gracios <g>