Delphi dicas

Abrir e fechar a bandeja do cd-rom

{crie um botão para abrir e coloque o seguinte comando }



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



{crie um botão para fechar a bandeja do CD-ROM e coloque o seguinte comando}



mciSendString('Set cdaudio door closed wait', nil, 0, handle);



{coloque na lista de Uses o seguinte parametro: MMSystem}