Скачать: CL | DM;

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

← →
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.

---

← →
NailMan ©   (2003-06-11 11:37) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c