Abrir e fechar o drive de CD-ROM

Inclua na seo uses: MMSystem

{ Para abrir }
mciSendString('Set cdaudio door open wait', nil, 0, handle);

{ Para fechar }
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
    

Autor : desconhecido

Voltar