Screensaver verhindern, wenn Fenster nicht den Fokus hat

[Luckie]

Zitat von Mutier:

Delphi-Quellcode:

procedure TForm1.WMSysCommand(var Msg: TMessage);
begin
  inherited;
  if (Msg.wParam = SC_SCREENSAVE) then
    begin
      Msg.Result := 1;
      showmessage('Da kommt was an...')
    end
end;

So müsste es eigentlich heißen, denke ich.