Ejetar Cd
Alguém conhece um comando do Delphi para ejetar o cd do drive :?:
Rubensgalvanijr
Curtidas 0
Respostas
Nildo
09/09/2003
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);
GOSTEI 0
Rubensgalvanijr
09/09/2003
Obrigado nildo,
funcionou perfeitamente e resolveu meu problema. :D
funcionou perfeitamente e resolveu meu problema. :D
GOSTEI 0