Desligando o monitor

[Watila]

Um recurso interessante que pode ser implementado na sua aplicação é a economia de energia, através do desligamento de dispositivos que não estejam sendo utilizados. Veja nesta dica como proceder para desligar/ligar o monitor de vídeo.

Inclua na seção uses a unit Windows.

O exemplo abaixo desliga o monitor, aguarda 5 segundos e o liga novamente.

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

Você poderá melhorar esta dica implementando uma função para detectar a inatividade do sistema e desligar o monitor automaticamente, voltando-o na ativa se o usuário mexer o mouse ou pressionar alguma tecla, por exemplo.

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

Fonte: activedelphi.com.br