Запретить выключение

[red]

Как запретить выключение Windows НЕ используя CloseQuery?

 

[Guest]

red
ловить сообщения WM_QUIT и т.д.
т.е. через WinAPI.

 

[red]

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

 

[Guest]

red
тогда надо ловить wm_QueryEndSession и запрещать его.

 

[red]

Чего-то не сильно ловиться, вот пример :

{
Это всё лежит в dll
}
procedure SetHook; export; stdcall;
Begin
 SysHook:=SetWindowsHookEx(WH_GETMESSAGE,@HookProc,HInstance,0);
End; 

function HookProc(Code:Integer; WParam:LongInt; LParam:LongInt):LongInt; stdcall;
begin
 if Code=HC_ACTION then
 case TMsg(Pointer(LParam)^).Message of
   WM_QUERYENDSESSION :
   begin
     Beep(3000,300);
   end
 else Result:=CallNextHookEx(SysHook,Code,WParam,LParam);
 end;
end;

Это дело не работает. Хоря вроде бы всё правильно. А как запретить его, я вообще не знаю.