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

← →
serko © (2005-12-01 17:42) [0]

Ув. мастера помогите! У меня вот есть код как выключить монитор:
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

Но он не работает в XP, а в 98 все ОК. Есть ли универсальный код? Ну или хотя бы для XP?

← →
fellix (2005-12-01 18:24) [1]

WM_SYSCOMMAND
WPARAM wParam
LPARAM lParam;

Parameters

wParam
SC_MONITORPOWER Sets the state of the display.
The lParam parameter can have the following values:
1 - the display is going to low power
2 - the display is being shut off

← →
serko © (2005-12-01 22:52) [2]

> fellix (01.12.05 18:24) [1]

Мне нужно для Delphi

← →
fellix (2005-12-02 01:21) [3]

А это не для Делфи?
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);

← →
serko © (2005-12-02 20:39) [4]

Так я ж сказал что этот код в ХР не работает у меня!

← →
fellix (2005-12-03 00:06) [5]

Ёлки, да сколько ж повторять? Последний параметр не 0, а 2!!!
Всё триста раз проверено и работает. Внимательнее будьте!

А как тады включить его?

← →
fellix (2005-12-04 01:57) [7]

Мышкой подвигать, клавиатурой покликать. :-)
Или lParam := -1.

Выключение монитора Найти похожие ветки