Monitor ki/be

Top  Previous  Next

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;