Delphi – Stavljanje monitora u Stand-by mode

Ukoliko vaš ili bilo koji drugi monitor podržava Stand-by mode, moguće je isprogramirati njegovo stavljanje u ovaj način rada. Sledeći Delphi programski kod, i sam program će raditi sa verzijom Windows-a 95 i višom. Da bi „poslali“ monitor u Stand-by potrebno je da uputimo sledeću sistemsku poruku Windows-u:

SendMessage(Application.Handle,  wm_SysCommand,  SC_MonitorPower, 0) ;

A, za izvođenje iz „uspavanosti“ koristi se sledeća poruka:

SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, -1) ;

Za primer, kreiraćemo malu aplikaciju koja će monitor slati u „uspavano“ stanje. Radi toga, pokrenite Delphi i na praznu formu postavite sledeće kontrole:

• Command button kontrolu
• Timer kontrolu
• ListBox kontrolu

Podesite i osobine Timer kontrole, osobinu „Enabled“ postavite na „False“, a osobini „Interval“ postavite na 15.000 (ovo je 15 sekundi). I dodajte sledeći kod datoj kontroli:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

 ListBox1.Items.Add(FormatDateTime(‘h:mm:ss AM/PM’,Time)) ;

 SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, -1);

end;

Unutar događaja „Click“ dugmeta dodajte sledeći kod:

procedure TForm1.Button1Click(Sender: TObject);

begin

 ListBox1.Items.Add(‘–> ‘ + FormatDateTime(‘h:mm:ss AM/PM’,Time)) ;

 Timer1.Enabled := not Timer1.Enabled ;

 SendMessage(Application.Handle,  wm_SysCommand,  SC_MonitorPower, 0) ;

end;

Kada prevedete i pokrente program, po kliku na dugme, monitor će se isključiti na 15 sekundi. Ali pre toga pogledajte podešavanja u „Control Panel“-u, vezana za power-save osobine.

Pratite Krstaricu na www.krstarica.com