Карта сайтаСсылкиКонтакты

Как включить (отключить) Screen Saver

PDF Печать
Статьи

Иногда возникает необходимость в отключении Скринсэйвера для выполнения длительных процессов, а затем переключения его обратно в активное состояние. Вы можете использовать эту функцию для включения/отключения хранителя экрана. Для активации Screen Saver нужно передать функции ActivateScreenSaver True в качестве параметра Activate и 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;

 

Добавить комментарий


Защитный код
Обновить