interfaceprivate
procedure
AppMessage(var
Msg: TMsg; var
handled: Boolean); end
; implementation
procedure
TForm1.AppMessage(var
Msg: TMsg; var
handled: Boolean); begin
if
(Msg.Message
= WM_SYSCOMMAND) and
(Msg.wParam = SC_SCREENSAVE) then
Handled := True; end
; procedure
TForm1.FormCreate(Sender: TObject); begin
Application.OnMessage := AppMessage; end
; { Note: The Screensaver is only disabled during the lifespan of your application. Bemerkung: Der Screensaver bleibt nur solange deaktiviert, wie ihre Applikation lдuft. $ }