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

Тема в разделе "Delphi", создана пользователем WinHack, 27 ноя 2016.

  1. WinHack
    Иногда нужно отключить текущий хранитель экрана (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;