حافظ الشاشة

function TurnScreenSaverOn : boolean;

begin

Result := SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0);

end;

function TurnScreenSaverOff : boolean;

begin

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

end;