Código
{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);
{Observações
Este recurso pode não funcionar dependendo da configuração do sistema.}
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009