~~~~~~~~~~~~~~~~~~~~~~~~~
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)

