Показать сообщение отдельно
  #2  
Старый 28.01.2019, 19:16
nixon232 nixon232 вне форума
Активный
 
Регистрация: 26.01.2014
Сообщения: 282
Версия Delphi: delphi xe4
Репутация: выкл
По умолчанию

Не могу отловить WM_WINDOWPOSCHANGING
Код:
function HookProc(nCode: integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  wnd: integer;
begin
 ...

  if (nCode < 0) then
  begin

   
    Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
  end;


  case nCode of
  
    WM_WINDOWPOSCHANGING:  SendMessage(AppWnd, MYWM_WINDOWPOSCHANGING, wParam, 0);
  end;

  //Передаём сообщение дальше по цепочке hook-ов
  Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
end;


procedure SetHook(wnd: integer); export; stdcall;
begin
 
  HookHandle := SetWindowsHookEx(WH_CALLWNDPROC, @HookProc, HInstance, 0);
  ...

end;

procedure DellHook; export; stdcall;
begin
  
  UnHookWindowsHookEx(HookHandle);
end;

exports
  SetHook, DellHook;
Что я делаю не так? события нет (по дебагу длл)
Ответить с цитированием