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;
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;