Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.20;
Скачать: CL | DM;

Вниз

Не получается отключить автовыключение монитора   Найти похожие ветки 

 
Коля   (2006-04-22 08:01) [0]

Мне нужно помешать включиться скринсейверу и выключиться монитору. Из хелпа следует, что за эти действия отвечают SC_MONITORPOWER и SC_SCREENSAVE.
Ловлю хуком эти месаджи. Со скринсейвером все нормально, а вот монитор отключается. Подскажите где ошибка?


 with PMsg(lParam)^ do
 begin
   if message = WM_SYSCOMMAND then
     if (wParam = SC_SCREENSAVE) or (wParam = SC_MONITORPOWER) then
     begin
       message := WM_NULL;
       if Data.Wnd <> 0 then
         SendMessage(Data.Wnd, WM_USER, 0, 0);
     end;
 end;


И нет ли другово способа решения этой проблемы? Очень не хочется волочить за программой дополнительную библиотеку.
Спасибо!


 
Anatoly Podgoretsky ©   (2006-04-22 16:52) [1]

А еще это может делать и сам монитор, определенные модели, а некоторые определенные модели не позволюят это отключать.



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

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

Наверх




Память: 0.46 MB
Время: 0.036 c
15-1153428532
Footballer
2006-07-21 00:48
2006.08.20
А какие вы знаете смайлики? %)


2-1154336912
Der Nechk@ssoff
2006-07-31 13:08
2006.08.20
Random


15-1153479703
ddddd
2006-07-21 15:01
2006.08.20
Относит ли кто-нибудь квитанции об оплате штрафов в ГАИ?


1-1152169596
RDS
2006-07-06 11:06
2006.08.20
Кнопка приложения на панели задач


3-1150370483
Alexey V.
2006-06-15 15:21
2006.08.20
Импорт dbf файлов в Firebird