delphi – SetWindowsHookEx创建一个本地钩子.如何使其全球化？

focusHook := SetWindowsHookEx( WH_CBT,@FocusHookProc,HInstance,0 );
// dwThreadId (the last argument) set to 0 should create a global hook

在同一个DLL中,我有一个挂钩过程,向主机应用程序窗口发送消息：

function FocusHookProc( code : integer; wParam: WPARAM; lParam: LPARAM ) : LResult; stdcall;
begin
  if ( code < 0 ) then
  begin
    result := CallNextHookEx( focusHook,code,wParam,lParam );
    exit;
  end;

  result := 0;

  if ( code = HCBT_SETFOCUS ) then
  begin
    if ( hostHWND <> INVALID_HANDLE_VALUE ) then
      PostMessage( hostHWND,cFOCUSMSGID,lParam );
  end;
end;

这是有效的,但主机只接收应用程序本身内焦点更改的通知.主窗体上有一个备忘录和几个TButtons,它们之间的切换将产生预期的消息.但是,应用程序本身以外的任何焦点更改都不会报告.

我想它与DLL的多个实例注入到其他进程有关.有一个类似的问题与接受的答复here,但它是为C,我不能看到我如何可以做同样的Delphi dll(例如pragma语句设置共享内存).

(这大概是一个概念的证明,但是我仍然希望让它工作,我需要知道在我的应用程序通过点击,alt选项卡,激活热键等激活之前,哪个窗口是活动的.问题是如果使用鼠标或替代选项卡,GetForegroundWindow总是返回自己的应用程序的窗口句柄,无论多久我都放置它,例如挂钩应用程序的主要消息队列,所以钩子似乎是唯一可行的解??决方案,尽管我真的很喜欢这个想法.)