Fórum Abrir e fechar o drive de DVD-ROM com o Delphi? #581460

17/05/2017

0

Delphi

Fala pessoal, minha duvida é como abrir e fechar o drive de DVD, alguem pode me ajudar?
Jonas

Jonas

Responder

Posts

17/05/2017

Alex Nolaço

Fala miguel!

para isso inclua na seção uses: MMSystem

e na linha de código que você quer executar a ação coloque:

{ Para abrir }
mciSendString('Set cdaudio door open wait', nil, 0, handle);
 
{ Para fechar }
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar