Windows API (94)
Windows Filesystem (41)
Windows Forms (69)
Windows Graphics (38)
Exchange Links
About this site
Temporarily disable the screensaver
This article has not been rated yet. After reading, feel free to leave comments and rate it.
You can control the screen-saver from your Delphi application by intercepting the system message SC_SCREENSAVE.
The following piece of code disables the screen-saver as long as your application runs:
 |  | |
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.message = WM_SYSCOMMAND) and (Msg.wParam = SC_SCREENSAVE) then
begin
Msg.wParam := 0;
Msg.message := sc_Move;
Handled := true;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage; { set the message handler }
// .. other stuff
end; | ||
 |  |
|
||||||||
Comments:
