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