Mega Code Archive

 

Categories / Delphi / System

 

Monitörün kapatilmasi-acilmasi kapatilmasi;

procedure TForm1.Button1Click(Sender: TObject); begin SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0); timer1.enabled:=true; end; //!! acilmasi icin; procedure TForm1.Timer1Timer(Sender: TObject); begin SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1); timer1.enabled:=false; end;