Отключение скринсейвера

← →
NailMan © (2003-06-10 16:32) [0]

Есть программа-проигрыватель видео и есть пользователь на компе которого включен скринсейвер, скажем через 15 мин бездействия.

Вот он смотрит фильм некоторое время и так как он не юзал мышь и клаву у него включается скринсейвер.

Вопрос:
1) Как комп "правильно" вывести из этого состояния.
2) Как программно узнать что режим скринсейвера активен.
3) Как узнать через какое время сработает скринсейвер.

Насчет первого есть предположение - SetCursorPOS`ом "подвигать" мышом.

← →
Song © (2003-06-10 16:37) [1]

SystemParametersInfo()

← →
Михайлов Антон © (2003-06-10 18:33) [2]

var
ScreenSaverEnabled: Boolean;
ScreenSaveTimeOut: Integer;

procedure DisableScreenSaver;
begin
if ScreenSaverEnabled then
begin
SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT, 0, @ScreenSaveTimeOut, 0);
SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, 0, nil, 0);
ScreenSaverEnabled := False;
end;
end;

procedure EnableScreenSaver;
begin
if not ScreenSaverEnabled then
begin
SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, ScreenSaveTimeOut, nil, 0);
ScreenSaverEnabled := True;
end;
end;

Вроде я это использовал...

← →
Михайлов Антон © (2003-06-10 18:35) [3]

оу... забыл кое что....
там в конце юнита надо вот это:

initialization
SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT, 0, @ScreenSaveTimeOut, 0);
ScreenSaverEnabled := True;
finalization
EnableScreenSaver;
end.

пасиба. попробую сегодня.

Отключение скринсейвера Найти похожие ветки