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

André Luiz Delphi, Programação

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 um comentário

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