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

在Delphi XE应用程序中,我试图设置一个全局钩子来监视焦点更改.钩子是在dll中创建的：

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总是返回自己的应用程序的窗口句柄,无论多久我都放置它,例如挂钩应用程序的主要消息队列,所以钩子似乎是唯一可行的解​​决方案,尽管我真的很喜欢这个想法.)

解决方法

由于DLL被注入到另一个进程中,除了正在调试的进程之外,你不会得到任何断点.而且,其他进程中的每个DLL的实例也会获得自己的全局/静态数据.如果hostHWND是全局的,那么在另一个进程中它的值与此不同.实际上甚至不会被初始化.您需要使用共享内存块来共享进程之间的值.可能需要使用共享互斥体和其他同步对象来确保任何共享内存写入受到保护.最后,如果您使用的是Windows Vista,只有具有相同访问级别和更低级别的进程才能注册该DLL. IOW,如果您以已登录的用户身份运行该进程,则仅以已登录的用户身份进行运行,才能注册该DLL.