Fórum Alguém já usou esta dica? #292489
21/08/2005
0
Alguém já tentou usar isto:
Inclua na seção uses: MMSystem
{ Para abrir }
mciSendString(´Set cdaudio door open wait´, nil, 0, handle);
{ Para fechar }
mciSendString(´Set cdaudio door closed wait´, nil, 0, handle);
Eu fiz um form com dois botões, abrir e fechar. Quando eu clico no abrir, a gaveta do drive de cd-rom abre, mas quando clico no fechar nada acontece.
Se eu iniciar o programa com a gaveta aberta, ela fecha.
Onde está o erro?
Inclua na seção uses: MMSystem
{ Para abrir }
mciSendString(´Set cdaudio door open wait´, nil, 0, handle);
{ Para fechar }
mciSendString(´Set cdaudio door closed wait´, nil, 0, handle);
Eu fiz um form com dois botões, abrir e fechar. Quando eu clico no abrir, a gaveta do drive de cd-rom abre, mas quando clico no fechar nada acontece.
Se eu iniciar o programa com a gaveta aberta, ela fecha.
Onde está o erro?
Loko
Curtir tópico
+ 0
Responder
Posts
21/08/2005
Marco Salles
Eu nunca tinha testado , resolvi testar .. e Funcionou beleza
Uso windows Xp , e Delphi 5.0
Uso windows Xp , e Delphi 5.0
Responder
Gostei + 0
21/08/2005
Adriano Santos
Já tinha testado e funciona sim.
Responder
Gostei + 0
22/08/2005
Guilherme
deu certo sim mas alguem sabe como escolher o driver a ser aberto/fechado ???
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)