Dica - Como desabilitar o Screen-Saver

function ScreenSaver(AEnabled: Boolean): Boolean;
var
  Flag: byte;
begin
  if AEnabled then
    Flag := 1
  else
    Flag := 0;

  Result := SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, Flag, nil, 0);
end;

Dica extraida de http://www.curitibainformatica.com.br/dicas_delph.htm

Autor Desconhecido