pokracujeme

Milovníky Windows 2000 opět musím zklamat, že v tomto systému náš příklad nebude fungovat.
Spořič obrazovky
Na závěr jsem si nechal téma příbuzné tématu předchozímu .Spořič obrazovky jistě každý zná, takže žádné dlouhé úvody. Naučíme se jej nejen přímo spustit, ale také zakázat či povolit systému jeho spuštění, což je funkce nadmíru užitečná.
Tak tedy nejprve spuštění spořiče:
function SpustSporic : boolean;
var
b : boolean;
begin
result := false;
if SystemParametersInfo(SPI_GETSCREENSAVEACTIVE,0,@b,0) <> true then exit;
if not b then exit;
PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
result := true;
end;