Выключить монитор:
|
|
SendMessage(Application.Handle, WM_SYSCOMMAND,
SC_MONITORPOWER, 0); |
Включить монитор:
|
|
SendMessage(Application.Handle, WM_SYSCOMMAND,
SC_MONITORPOWER, -1); |
Исправление
_гораздо_ корректнее
|
|
SendMessage(HWND_BROADCAST,WM_SYSCOMMAND, 0) |
или
|
|
SendMessage(HWND_BROADCAST,WM_SYSCOMMAND, -1) |
а вариант с Application.handle вообще по-моему нерабочий , ну если и рабочий
то в глубоко частном случае !
С уважением, Antony Peter Sadovnikoff.
Дополнение:
Nomadic добавляет еще один способ:
|
|
SetSystemPowerState(true,true); | |