Выключить и включить монитор

ОГЛАВЛЕНИЕ    HOME  MAIL

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 5000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  SendMessage(Application.Handle, WM_SysCommand,
    SC_MonitorPower, -Form1.Tag);
  // Form1.Tag принимает значение 1 или 0
  Form1.Tag := 1 - Form1.Tag;
end;