Dúvidas

[Kikonanet]

Ai Galera,

Duas dúvidas...

1) Como faço para abrir o Cd-Rom?

2) Como faço para desligar o monitor?

Valeu

[woryon]

{Inclua na seção uses: Windows No Windows podemos desligar o monitor afim de economizar energia elétrica. Normalmente este recurso é controlado pelo próprio Windows. Porém sua aplicação Delphi também pode fazer isto. O exemplo abaixo desliga o monitor, aguarde 5 segundos e re-liga monitor.}

SendMessage(Application.Handle, WM_SYSCOMMAND,
  SC_MONITORPOWER, 0);
Sleep(5000); { Aguarde 5 segundos }
SendMessage(Application.Handle, WM_SYSCOMMAND,
  SC_MONITORPOWER, -1);

//PS: Este recurso pode não funcionar dependendo da configuração do sistema. 

E esse para o cd:

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