Activate/Deactivate the Screen Saver

~~~~~~~~~~~~~~~~~~~~~~~~~
function ActivateScreenSaver
         (Activate: boolean): boolean;
var IntActive: byte;
begin
   if Activate then
     IntActive := 1
   else
     IntActive := 0;

   Result := SystemParametersInfo
             (SPI_SETSCREENSAVEACTIVE, IntActive,
              nil, 0) ;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Here some more screen saver development articles.

Delphi tips navigator:
» Implementing Application.Restart
« Get Cursor Image (draw it on a Canvas)

• 1
• 2
• 3
• 4
• 5