DBR Delphi-Ecke

// Hiermit kann man den Bildschirm ab- und einschalten.

// Getestet mit D4 unter WinME

// abschalten für 3 Sekunden 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Timer1.interval := 3000; 
  SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0); 
end; 
 
// nach 3 Sekunden wird wieder eingeschaltet 
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1); 
end;

// Getestet mit D4 unter 
        XP
// abschalten für 3 
        Sekunden

        procedure TForm1.Button8Click(Sender:
        TObject); 

        begin 

  Timer1.interval
        := 3000;
        

  PostMessage(HWND_TOPMOST,
        WM_SYSCOMMAND,
        SC_MONITORPOWER,
        2); 

        end;
        

 

        // nach 3 
        Sekunden wird wieder eingeschaltet

        
        procedure 
        TForm1.Timer1Timer(Sender:
        TObject); 

        begin 

  PostMessage(HWND_TOPMOST,
        WM_SYSCOMMAND,
        SC_MONITORPOWER,
        -1);
        

        end;