prevent the screensaver from starting?

Author: Thomas Stutz

Homepage: http://www.swissdelphicenter.ch

1 Comment to this tip [Write new comment]

[ Print tip ]

Tip Rating (8):

Skill:

Useful:

Overall:

interface

private

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. $

}