Abrindo e Fechando a bandeja do drive de CD-ROM

//Para Abrir:
mciSendString('Set cdaudio door open wait', nil, 0, handle);

//Para Fechar:
mciSendString('Set cdaudio door close wait', nil, 0, handle);