Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: 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 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
14-84590
VolanD
2003-06-08 15:18
2003.06.26
MATRIX II


1-84131
miwa
2003-06-11 05:21
2003.06.26
Сортировка обьектов по полю.


3-83857
Oldman
2003-06-02 09:42
2003.06.26
Сеть и Clipper.


6-84499
Пубертанец
2003-04-23 17:57
2003.06.26
Скачать файл по FTP


14-84644
SPeller
2003-06-08 11:10
2003.06.26
Бесконечная история