U trendu

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.

Napišite komentar

Najnovije iz rubrike