Блокировка спящего режима

← →
wwolf (2003-09-05 09:17) [0]

Подскажите пожалуйста, какие сообщения воникают при переходе компьютера в спящий режим, и каким образом их перехватывать, чтобы не позволить в этот режим перейти?

← →
Song © (2003-09-05 09:32) [1]

WM_POWERBROADCAST

← →
wwolf (2003-09-05 10:57) [2]

А если подробнее?

← →
Song © (2003-09-05 12:09) [3]

Поподробнее в SDK или MSDN

← →
wwolf (2003-09-05 14:49) [4]

Подскажите, что не так. Ставлю Hook, нажимаю Sleep, и компьютер преспокойно засыпает, Мастера, посмотрите. где ошибки.
ibrary Hook;
uses Windows, Messages;
var HookHandle: HHOOK;
function GetMessageHook(HookCode, RemovalFlag, MsgAddr: integer): integer; stdcall;
begin
if HookCode < 0 then Result := CallNextHookEx(HookHandle, HookCode, RemovalFlag, MsgAddr)
else begin
Result := 0;
with TMsg(Pointer(MsgAddr)^) do if (message = WM_POWERBROADCAST) then wParam := BROADCAST_QUERY_DENY
end
end;

function SetHook: boolean; stdcall;
begin
HookHandle := SetWindowsHookEx(WH_GETMESSAGE, @GetMessageHook, HInstance, 0);
Result := HookHandle <> 0
end;

function RemoveHook: boolean; stdcall;
begin
Result := UnhookWindowsHookEx(HookHandle)
end;

exports SetHook, RemoveHook;
begin

end.

← →
Almaz © (2003-09-06 00:50) [5]

> wwolf (05.09.03 14:49) [4]
> Подскажите, что не так. Ставлю Hook, нажимаю Sleep, и компьютер
> преспокойно засыпает, Мастера, посмотрите. где ошибки.

Ошибка в том, что хук не нужен. Нужно всего лишь в своей программе обрабатывать сообщение WM_POWERBROADCAST и возвращать BROADCAST_QUERY_DENY.
Примерно, это будет выглядеть так:

type TForm1 = class(TForm) private procedure WMPowerBroadcast(var Message: TMessage); message WM_POWERBROADCAST; ... end; ... const PBT_APMQUERYSUSPEND = 0; procedure TForm1.WMPowerBroadcast(var Message: TMessage); begin if Message.Wparam = PBT_APMQUERYSUSPEND then Message.Result := BROADCAST_QUERY_DENY; end;

Удачи.

Можно ли тоже самое для монитора?
пришлите ответ на мыло.

WM_SYSCOMMAND соответственно.

Блокировка спящего режима Найти похожие ветки