Função para abrir o Drive de CD em Delphi

Adicione nas USES do delphi: MMSystem

Para Abrir

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

Para Fechar

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

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *