| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Монитор

vasIzmax ©   (2006-11-27 22:59:00) 

Доброго времени суток! Процедуру для выключения монитора. Нашел только: SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);. НО она не вырубает. В чем причина?

---

Zeqfreed   (2006-11-28 04:42:00) [1]

> for i:=-20 to 40 do
> SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER,
>  i);


В следующий раз лучше делать for i := Low(Integer) to High(Integer), для надежности.
На самом деле, все проблемы разрешились бы после элементарного просмотра справки:

SC_MONITORPOWER
   Sets the state of the display. This command supports devices that have power-saving features, such as a battery-powered personal computer.

   The lParam parameter can have the following values:

   1 - the display is going to low power

   2 - the display is being shut off

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/userinput/keyboardaccelerators/keyboardacceleratorreference/keyboardacceleratormessages/wm_syscommand.asp

---

vasIzmax   (2006-11-28 03:12:00) [2]

> SendMessage(HWND_BROADCAST, *********,WM_SYSCOMMAND, 0);

Вместо звезд должен быть еще параметр cardinal. Кстати, применил к нему то же цикл. Пришлось камп перезагрузить. :)

---

kingsoft   (2006-11-28 03:07:00) [3]

Ваш код на моём мониторе работает.

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);
end;

Только при движении мыши снова включается.

---

kingsoft   (2006-11-28 03:01:00) [4]

Я проверил у себя всё работает.

---

vasIzmax   (2006-11-28 02:57:00) [5]

> kingsoft ©   (28.11.06 02:52) [4]

Пишет че: Not enough actual parametrs.

---

vasIzmax   (2006-11-28 02:56:00) [6]

> kingsoft ©   (28.11.06 02:50) [3]

Я раньше пробовал. Не помогло. Я сделал чуток иначе.

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=-20 to 40 do
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, i);
end;

И представьте при 2 заработало. Интересно, а если на другом кампе это попробовать, наверно вместо 2 будет че-то другое?:)

---

kingsoft   (2006-11-28 02:52:00) [7]

Есть еще пару вариантов!!!

SendMessage(HWND_BROADCAST,WM_SYSCOMMAND, 0);

SendMessage(HWND_BROADCAST,WM_SYSCOMMAND, -1);

---

kingsoft   (2006-11-28 02:50:00) [8]

Попробуй так.
procedure TForm1.Button1Click(Sender: TObject);
begin
 SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
end;
То есть измени последний параметр на -1. Должно помочь!

---

vasIzmax   (2006-11-28 02:28:00) [9]

> Алхимик ©   (28.11.06 00:07) [1]

Я это усек. Пробовал. Не работает. Может монитор не подходит?

---

Алхимик   (2006-11-28 00:07:00) [10]

Поиграйся с параметром последним.
Вроде
0 - включение
1 - выключение

---

Наверх