Fórum Ejetar Cd #180911
09/09/2003
0
Alguém conhece um comando do Delphi para ejetar o cd do drive :?:
Rubensgalvanijr
Curtir tópico
+ 0
Responder
Posts
09/09/2003
Nildo
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);
{ 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
09/09/2003
Rubensgalvanijr
Obrigado nildo,
funcionou perfeitamente e resolveu meu problema. :D
funcionou perfeitamente e resolveu meu problema. :D
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)