Ajuda Rapido Plz

[julala 0]

Alguem poderia me dizer o commando em delphi 7 que faz abrir o leitor de CD da vitimaaa ? :D

 

Se me ajudar agradeço

[SaYaDiN² 1]

Adicione nas Uses:

 

MMSystem

 

E no Evento OnCLick de um button o comando para abrir:

 

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

 

Para fechar:

 

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

[Felipexg 2]

Duvida Respondida!

 

Close^()