Delphi – Stavljanje monitora u Stand-by mode

 –  aลพurirano:  –  

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