Irgendwie klappt das trotzdem nicht.
Ich starte das Programm. Nach einer Minute schaltet Windows den Bildschirm aus. Dann läut im Programm der Timer, der den Bildschirm dann einschalten sollte.
Ich sehen den aber nur für einen bruchteil der Sekunde, danach ist wieder alles schwarz.
Ihr könnt ja mal meinen Quellcode ausprobieren.
Delphi-Quellcode:
var
Form1: TForm1;
Zeit : Integer;
implementation
{$R *.dfm}
procedure TForm1.BildschirmAusschalten;
begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);
end;
procedure TForm1.BildschirmEinschalten;
begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Zeit := 10;
BildschirmEinschalten;
end;
procedure TForm1.btnOnClick(Sender: TObject);
begin
BildschirmEinschalten;
end;
procedure TForm1.btnOffClick(Sender: TObject);
begin
BildschirmAusschalten;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
BildschirmEinschalten
end;
end.