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);

One thought to “Função para abrir o Drive de CD em Delphi”

  1. Pingback: keto diet drinks

Deixe uma resposta

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