Buscar por:

Desligando/ligando o monitor

Código

{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.