Monitor ki-be kapcsolása

Persze ez a megoldás a képernyőkímélő meghívása(még akkor is, ha nincs a gépeden ez a funkció bekapcsolva), és ebből következik, hogy egér-billentyü változásokra egyszerre bekapcsol a monitorod.

Monitor kikapcsolása:
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Application.Handle, WM_SYSCOMMAND,
SC_MONITORPOWER, 1);
end;

Monitor bekapcsolása:
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Application.Handle, WM_SYSCOMMAND,
SC_MONITORPOWER, 0);
end;