| 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
