Контроль запускаемых окон(Hook)

[rpy3uH]

создание, уничтожение, сворачивание, разворачивание и т.д. лучше юзать тип хука WH_CBT. На всё остальное лучше использовать WH_GETMESSAGE. Обрабатывай в хуке сответствующие сообщения (WM_CREATE, WM_MOVE, WM_SIZE, WM_PAINT....).

[BOBAH13]

Решил поднять тему, т.к. при установки HCBT хука, бывает что через некоторое время обработчик хука просто перестает срабатывать, и приходится переустанавливать хук, но мне кажется что есть какое то рациональное решение, нежели просто по таймеру переустанавливать хук постоянно.

[rpy3uH]

скорее всего это глюк в обработчике хука, надо смотреть код, отлаживать, тестить....

[Stilet]

Если такая морока с хуками почему бы не получать список запущенных процессов раз в скажем пять сек. и не выяснять какая прога в сравнении с предидущим списком появилась в новом.
а потом уж и узнать экзешник, или модуль который ее запустил.
Зачем хуки то мучать?

[BOBAH13]

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

library gKernel;

uses
  Windows, Messages;

{$R *.RES}
         
type
  PData = ^TData;
  TData = packed record
    HookCBT: HHOOK;
    WndCBT: HWND;
    WM_GDWINDOWMINMAX: DWord;
  end;

const
  MapName = 'gKernelHook';

var
  Data: PData;
  hMap: THandle;

function HookCBTProc(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT; stdcall;
begin
  // работает сначала, потом оп, и обработчик вообще не срабатывает
  if (code = HCBT_MINMAX) and (Data^.WndCBT > 0) then
  begin

    case LOWORD(lparam) of

      SW_MINIMIZE, SW_SHOWMINIMIZED:
      begin
        if IsWindowVisible(wparam) then
        begin
          Result := SendMessage(Data^.WndCBT, Data^.WM_GDWINDOWMINMAX, wparam, 0);
          if (Result = 1) then
          begin
            CallNextHookEx(Data^.WndCBT, code, wparam, lparam);
            Exit;
          end;                 
        end;
      end;

      else
        PostMessage(Data^.WndCBT, Data^.WM_GDWINDOWMINMAX, wparam, 1);
    end;

  end;

  Result := CallNextHookEx(Data^.HookCBT, code, wparam, lparam);
end;

procedure SetHook(State: Boolean); stdcall;
begin
  if State then
  begin
    if not Assigned(Data) then
    begin
      hMap := CreateFileMapping(INVALID_HANDLE_VALUE, NIL, PAGE_READWRITE, 0, SizeOf(TData), MapName);
      if (hMap = 0) then
        Exit;

      Data := MapViewOfFile(hMap, FILE_MAP_ALL_ACCESS, 0, 0, 0);
      if not Assigned(Data) then
      begin
        CloseHandle(hMap);
        Exit;
      end;

      Data^.WM_GDWINDOWMINMAX := RegisterWindowMessage('WM_GDWINDOWMINMAX');

      Data^.WndCBT := 0;
      Data^.HookCBT := SetWindowsHookEx(WH_CBT, @HookCBTProc, HInstance, 0);
    end;
  end else
  if Assigned(Data) then
  begin
    UnhookWindowsHookEx(Data^.HookCBT);
    
    UnmapViewOfFile(Data);
    Data := NIL;
    
    CloseHandle(hMap);
  end;
end;

procedure SetWndCBT(hWnd: HWND); stdcall;
begin
  if Assigned(Data) then
  begin
    Data^.WndCBT := hWnd;
  end;
end;

procedure DLLEntryPoint(dwReason: DWord);
begin
  case dwReason of

    DLL_PROCESS_ATTACH:
    if not Assigned(Data) then
    begin
      hMap := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, MapName);
      if (hMap = 0) then
        Exit;
      
      Data := MapViewOfFile(hMap, FILE_MAP_ALL_ACCESS, 0, 0, 0);
      if not Assigned(Data) then
        CloseHandle(hMap);
    end;

    DLL_PROCESS_DETACH:
    if Assigned(Data) then
    begin
      UnmapViewOfFile(Data);
      Data := NIL;
      CloseHandle(hMap);
    end;
    
  end;   
end;

exports
  SetHook name 'SetHook',
  SetWndCBT name 'SetWndCBT';

begin
  DisableThreadLibraryCalls(HInstance);
  DLLProc := @DLLEntryPoint;
  DLLEntryPoint(DLL_PROCESS_ATTACH);
end.

[rpy3uH]

function HookCBTProc(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT; stdcall;
begin
  // работает сначала, потом оп, и обработчик вообще не срабатывает
  if (code = HCBT_MINMAX) and (Data^.WndCBT > 0) then
  begin

    case LOWORD(lparam) of

      SW_MINIMIZE, SW_SHOWMINIMIZED:
      begin
        if IsWindowVisible(wparam) then
        begin
          Result := SendMessage(Data^.WndCBT, Data^.WM_GDWINDOWMINMAX, wparam, 0);
          if (Result = 1) then
          begin
            CallNextHookEx(Data^.WndCBT, code, wparam, lparam);
            Exit;
          end;                 
        end;
      end;

      else
        PostMessage(Data^.WndCBT, Data^.WM_GDWINDOWMINMAX, wparam, 1);
    end;

  end;

  Result := CallNextHookEx(Data^.HookCBT, code, wparam, lparam);
end;

довольно-таки странный обработчик. во-первых, не рекомендуется передавать сообщения хуках такого типа и это главное.
во-вторых

          if (Result = 1) then
          begin
            CallNextHookEx(Data^.WndCBT, code, wparam, lparam);
            Exit;
          end;

что это такое? похоже на бред...

[BOBAH13]

Вопрос не в этом, result := нет, т.к. я прерываю цепь хука, чтобы окно не свернулось

передавать сообщения хуках такого типа и это главное.

Это Вы о чем ?

[rpy3uH]

Сообщение от BOBAH13

Это Вы о чем ?

я о том что посылка сообщения может привести (прямо или косвенно) к вызову твоего обработчика и получится бесконечная рекурсия. В данном лсучае посылая сообщения надо точно знать что никакое новое окно не создастся.

функция CallNextHookEx в WinNT игнорирует первый параметр. поэтому строки

CallNextHookEx(Data^.WndCBT, code, wparam, lparam);
CallNextHookEx(Data^.HookCBT, code, wparam, lparam);
CallNextHookEx(0, code, wparam, lparam);

равнозначны!
и я не понимаю какой был смысл вызывать CallNextHookEx указав в качестве первого параметра хендл окна