9

在 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, wParam, lParam );
  end;
end;

这可行，但主机只接收应用程序本身内焦点更改的通知。主窗体上有一个备忘录和几个 TButton，在它们之间切换焦点会产生预期的消息。但是，从不报告应用程序本身之外的任何焦点更改。

我想这与将 DLL 的多个实例注入其他进程有关。有一个类似的问题，这里有一个接受的答复，但它是针对 C 的，我不太明白如何在 Delphi dll 中做同样的事情（例如，设置共享内存的 pragma 语句）。

（这主要是一个概念证明，但我仍然想让它工作。我需要知道在我的应用程序通过单击、alt+tab、激活热键等方式激活之前处于活动状态的窗口。问题是如果使用鼠标或 alt+tab, GetForegroundWindow 总是返回我自己的应用程序的窗口句柄, 无论我把它多早, 例如通过挂钩应用程序的主消息队列. 所以挂钩似乎是唯一可行的解​​决方案, 虽然我真的不喜欢这个主意。）

4

2 回答 2

15

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

于 2012-03-03T22:01:03.540 回答
4

尝试使用 WinEvents 而不是 CBT 挂钩：SetWinEventHook查找 EVENT_OBJECT_FOCUS 作为最小和最大事件，带有 WINEVENT_OUTOFPROC 标志，idThread 和 idProcess 为 0。这将为您提供一个挂钩，该挂钩可以侦听来自同一桌面中任何进程的焦点事件，而无需单独的 DLL，并且它适用于 32 位和 64 位应用程序。

有几点需要注意：一个是事件不是即时的；有一点滞后，因为它们基本上是发布到您的进程中（这就是避免需要 DLL 的进程外选项的工作方式），但它们可能足够快以供您使用。（无论如何，如果您在 DLL 挂钩中使用 PostMessage，您也会遇到同样的问题！）

此外，您将获得比实际 HWND 焦点更改更多的事件：各种控件发送这些焦点更改事件以发出内部焦点更改的信号 - 例如，焦点在列表框中的项目之间移动。您可以通过仅在回调中过滤那些 idObject=OBJID_WINDOW 和 idChild=0 的人来过滤掉这些。

或者，如果您侦听 EVENT_SYSTEM_FOREGROUND 事件而不是 EVENT_OBJECT_FOCUS（有关事件的完整列表，请参见 MSDN），那么您似乎应该只获得顶级窗口前台事件，这听起来就像您在这里实际需要的那样。

于 2012-03-04T02:15:21.823 回答