Dica - Como desabilitar o Screen-Saver

Dica Delphi - Função para desabilitar o Screen-Saver

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

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

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

Autor Desconhecido