|
|
|
Supreme Being
участник
Last Login: 02.08.2006 17:23
Сообщ.: 186,
Visits: 2 028
|
|
| Можно ли узнать включён ли монитор и/или вообще подключён он сейчас к компу или нет? (Нужно определить, что пользователь выключик монитор или вообще отцепил его)
|
|
|
|
|
Supreme Being
участник
Last Login: 23.06.2008 14:54
Сообщ.: 140,
Visits: 1 510
|
|
| Может пригодиться... 'Выключить монитор на VB6----------------------- Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Const WM_SYSCOMMAND = &H112&
Private Const SC_MONITORPOWER = &HF170& Dim m As Long
m = SendMessage('Здесь имя формы'.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2&)
|
|
|
|
|
Supreme Being
участник
Last Login: 02.08.2006 17:23
Сообщ.: 186,
Visits: 2 028
|
|
| Жаль, но не пригодится, с этим я уже давно знаком...
|
|
|
|