Bildschirmschoner verhindern

[Robert Marquardt]

Da es mit OnMessage nicht geht, muss man eine Message-Methode schreiben.
Deklariert in der Hauptform:

Delphi-Quellcode:

procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;


procedure WMSysCommand(var Msg: TMessage);
begin
  if Msg.wParam = SC_SCREENSAVE then
    Msg.Result := 1
  else
    inherited;
end;

Damit sollte es dann hinhauen.