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

Тема в разделе "Delphi - Система", создана пользователем red, 27 май 2004.

Статус темы:
Закрыта.
  1. red

    red Гость

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

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

    red Гость

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

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

    red Гость

    Чего-то не сильно ловиться, вот пример :
    Код (Text):
    {
    Это всё лежит в 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;
    Это дело не работает. Хоря вроде бы всё правильно. А как запретить его, я вообще не знаю.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей