->

Dicas

Abrir e Fechar a bandeja do drive de CD-ROM (sem usar TMediaPlayer).

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

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