Вверх ↑
Этот топик читают: Гость
Ответов: 578
Рейтинг: 14
#1: 2011-08-26 13:29:50 ЛС | профиль | цитата
Добрый день, кто нибудь может подсказать есть ли какая нибудь API у видны для отключения монитора, или функция в delphi
карма: 0

0
Ответов: 3889
Рейтинг: 362
#2: 2011-08-26 13:32:12 ЛС | профиль | цитата
GanjaKyp, SendMessage (монитор и драйвера должны поддерживать программное управление питанием).
карма: 1

0
Ответов: 578
Рейтинг: 14
#3: 2011-08-26 13:38:48 ЛС | профиль | цитата
у монитора есть хэндл?
карма: 0

0
Ответов: 3889
Рейтинг: 362
#4: 2011-08-26 13:53:30 ЛС | профиль | цитата
GanjaKyp,

Add(MainForm,2953706,266,154)
{
Caption="Подождите пять секунд..."
Position=1
Point(Handle)
}
Add(SendMessage,12120697,266,231)
{
WParam=61808
LParam=1
Point(Message)
link(onSend,2953706:doClose,[(329,237)(329,146)(254,146)(254,181)])
link(Handle,2953706:Handle,[])
link(Message,13064949:Value,[])
}
Add(Timer,377303,203,231)
{
Interval=5000
link(onTimer,12120697:doSendMessage,[])
}
Add(Memory,13064949,287,189)
{
Default=Integer(274)
}
Предвосхищая вопросы по схеме: большинство систем полностью отключить монитор не дадут, обычно реализовано только две команды, одну из которых я Вам и показал
карма: 1

0
Ответов: 578
Рейтинг: 14
#5: 2011-08-26 20:29:52 ЛС | профиль | цитата
win7 sp1 x64 - не сработало
winXP sp3 x32 - не сработало

а какой второй способ?
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#6: 2011-08-26 22:29:32 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-12 09:20:52
карма: 0

0
Ответов: 3889
Рейтинг: 362
#7: 2011-08-27 00:07:01 ЛС | профиль | цитата
GanjaKyp писал(а):
а какой второй способ?

code_25012.txt
Второй способ, только что проверил на NT6.x 64 бит с двумя видеокартами - работает. Предыдущая схема на NT5.1 32 bit тоже работала. Возможно, требуются корректно установленные официальные драйвера на видео-карту (модуль подключения монитора), также некоторые BIOS имеют опции принудительного управления монитором, потенциально влияющие на результат.
карма: 1

1
файлы: 1code_25012.txt [492B] [177]
Голосовали:GanjaKyp
Ответов: 578
Рейтинг: 14
#8: 2011-08-27 11:20:45 ЛС | профиль | цитата
работает, большое спасибо ;)
карма: 0

0
8
Сообщение
...
Прикрепленные файлы
(файлы не залиты)