Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];

Вниз

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

 
Коля   (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 вся ветка

Форум: "WinAPI";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.043 c
15-1153238977
able_
2006-07-18 20:09
2006.08.20
Утилитка для подсчёта траффика.


15-1153585694
Pazitron_Brain
2006-07-22 20:28
2006.08.20
За сколько можно продать комп?


3-1150177063
Layner
2006-06-13 09:37
2006.08.20
Locate на 2 поля, возможно?


4-1146189300
killigor
2006-04-28 05:55
2006.08.20
Неправильно печатаются линии в XP на бумаге


15-1153471122
tButton
2006-07-21 12:38
2006.08.20
Мексика





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский