Выключить монитор

[Mirus]

Как осуществить сабж програмно?

[areh]

В смысле выключить? из розетки что ли, или на кнопку нажать?

Ты когда вопросы пишешь, пишь их как-нить более понятно!

[LsD85]

Сам монитор ты программно сможешь выключить с таким же успехом как программно выключишь газ под кипящим чайником.
Ты лучше сделай чёрную форму, разверни её на весь экран при запуске и мышкин курсор отключи - толку больше будет.

[ZeroX]

Мужики все можно, через SendMessage, я даже константу нашел у делфистов, только вот значение ее не знаю, и апививере ее нет

[Sedge]

В смысле выключить? из розетки что ли, или на кнопку нажать?
Ты когда вопросы пишешь, пишь их как-нить более понятно!

А самому соображалку включить, прежде чем на человека наезжать? Слабо?

По теме:

Код: Выделить всё

Private Const WM_SYSCOMMAND = &H112
Private Const SC_MONITORPOWER = &HF170

Private Declare Function SendMessage Lib "user32" Alias _
  "SendMessageA" (ByVal hwnd As Long, _
  ByVal wMsg As Long, ByVal wParam As Long, _
  lParam As Any) As Long

Private Sub Command1_Click()
  Dim Res As Long
  Res = SendMessage(Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 1)
End Sub


Последний параметр:

-1 - переводит монитор в нормальный, рабочий режим;
0 - переводит монитор в режим легкого засыпания;
1 - переводит монитор в спящий режим и
2 - монитор выключается.

Код работает только в том случае, если монитор совместим со стандартом EnergyStar

[Dino]

Все правильно, но маленькое уточнение, лучше в данном случае использовать PostMessage, вместо SendMessage. Иначе монитор не сможет програмно включиться. Проверено.

[Mirus]

Спасибо!!!

[Mirus]

А как сделать сабж в XP?

[Mirus]

Ни у кого не появилось соображений почему в XP монитор не отключается?