Включение / Отключение ScreenSaver

WinHack

Администратор
23 Фев 2015
2,664
1,913
bsfo.ru
Иногда нужно отключить текущий хранитель экрана (ScreenSaver) для выполнения каких-либо длительных процессов. Вы можете использовать эту функцию, чтобы включить или отключить скринсэйвер. Передайте функции True, чтобы активировать или False, чтобы дезактивировать скринсэйвер.

Код:
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;