Советы по Delphi

         

Как программно включить хранитель экрана?


Олег Кулабухов отвечает:

Нижеприведенный пример показывает возможность такого включения, одновременно проверяя доступность хранителя экрана.

    function TurnScreenSaverOn : bool;
var
b : bool;
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;

[001873]



Содержание раздела