[dec]

Hola,

Zarko Gajic muestra cómo hacer lo que quieres en Activate/Deactivate the Screen Saver.

Código Delphi [-]
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;