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

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

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

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]

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