Abrindo e fechando o drive de CD-ROM

Para abrir a gaveta do drive de CD-ROM,

Coloque a unit MMSystemna cláusula Uses da sua unit

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

Para fechar
e para fechar: mciSendString ('Set cdaudio door closed wait', nil, 0, handle);