Bildschirmsperre verhindern?

[t.roller]

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
if  (msg.wparam = SC_SCREENSAVE) then
    begin
       Msg.wParam := 0;
        SendMessage (0, WM_SYSCOMMAND, SC_SCREENSAVE, -1) ;
        Panel1.Color:= clRed; //nur Anzeige, dass Routine durchlaufen wird
        Handled := true;
    end;
end;

Oder so:

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSysCommand(var Msg: TMessage);
begin
Panel1.Color:= clRed; //nur Anzeige, dass Routine durchlaufen wird
  if Msg.wParam = SC_SCREENSAVE then
    Msg.Result := 1
  else
    inherited;
end;