METTRE (OU RETIRER) LE MONITEUR EN (DE LA) VEILLE

uses Windows, Messages;

//Declaration des constantes que l'on va utiliser
Const MONITOR_OFF : Short = 2;
Const MONITOR_ON : Short = -1;

procedure Moniteur_Veille(hWnd: THandle; Valeur: boolean);
begin
  if Valeur then //si Valeur est a TRUE on met le moniteur en veille
    SendMessage(hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF)
  else  //sinon on le retire de la veille
    SendMessage(hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_ON);
end;