[DELPHI] DESLIGAR, LIGAR E STANDBY MONITOR

Podemos Desligar, Ligar ou colocar o monitor em Standby.

Abra o Delphi e crie um novo projeto através do menu File -> New -> VCL Forms Application - Delphi, e altere as propriedade do Form:

Caption = MONITOR
Name = Frm_Principal
Position = poDesktopCenter

Adicione ao formulário um TButton disponível na paleta Standard do Delphi (Tool Palette -> Standard: TButton) e altere suas propriedades conforme baixo:

PROPERTIES TBUTTON1:
Caption  = Desligar, Ligar e Standby
Name = btnMonitor

Dê um duplo-clique no botão btnMonitor e adicione o código abaixo:

procedure TFrm_Principal.btnMonitorClick(Sender: TObject);
begin

  { Desliga o monitor }
  SendMessage(GetForegroundWindow, WM_SYSCOMMAND, SC_MONITORPOWER, 2);

  { Aguarda 2 segundos }
  sleep(2000);

  { Liga o monitor }
  SendMessage(GetForegroundWindow, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

  { Aguarda 2 segundos }
  sleep(2000);

  { Coloca o monitor em Standby }
  SendMessage(GetForegroundWindow, WM_SYSCOMMAND, SC_MONITORPOWER, 1);

end;

Salve as alterações (File -> Save All), coloque o nome uPrincipal para Unit e Principal para o nome do projeto.

Pronto, execute a aplicação (menu Run -> Run ou Pressione F9) e veja o resultado.

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】

Download