【发布时间】：2010-09-22 21:33:15
【问题描述】：
我正在尝试使用SetWindowsHookEx 设置WH_SHELL 挂钩以获取系统范围内的HSHELL_WINDOWCREATED 和HSHELL_WINDOWDESTROYED 事件的通知。我为最后的dwThreadId 参数传递了0，根据the docs，它应该“将钩子过程与在与调用线程相同的桌面上运行的所有现有线程相关联”。我还将hMod 参数的句柄传递给我的DLL（Delphi 中的HInstance），就像我查看的所有示例一样。
然而，我只收到由我自己的应用程序创建的窗口的通知，而且 - 通常情况下 - 我的测试导致桌面进程在我关闭我的应用程序后陷入困境。在你问之前，我确实打电话给UnhookWindowsHookEx。我也总是从我的处理程序中调用CallNextHookEx。
我正在从一个受限用户帐户运行我的测试应用程序，但到目前为止，我还没有发现任何暗示这会起作用的提示......（虽然这实际上让我感到惊讶）
AFAICT，我按部就班地做了一切（显然我没有，但到目前为止我看不到在哪里）。
我正在使用 Delphi (2007)，但我认为这并不重要。
编辑：也许我应该在之前提到过：我确实下载并尝试了几个示例（但不幸的是，Delphi 没有那么多可用的示例 - 特别是 WH_SHELL 或 @987654332 没有@)。虽然它们不会像我的测试应用程序那样使系统崩溃，但它们仍然不会捕获来自其他进程的事件（即使我可以使用 ProcessExplorer 验证它们是否可以正常加载到它们中）。因此，我的系统配置似乎有问题，或者示例错误，或者根本无法从其他进程捕获事件。谁能赐教？
EDIT2：好的，这是我的测试项目的源代码。
包含钩子程序的DLL：
library HookHelper;
uses
Windows;
{$R *.res}
type
THookCallback = procedure(ACode, AWParam, ALParam: Integer); stdcall;
var
WndHookCallback: THookCallback;
Hook: HHook;
function HookProc(ACode, AWParam, ALParam: Integer): Integer; stdcall;
begin
Result := CallNextHookEx(Hook, ACode, AWParam, ALParam);
if ACode < 0 then Exit;
try
if Assigned(WndHookCallback)
// and (ACode in [HSHELL_WINDOWCREATED, HSHELL_WINDOWDESTROYED]) then
and (ACode in [HCBT_CREATEWND, HCBT_DESTROYWND]) then
WndHookCallback(ACode, AWParam, ALParam);
except
// plop!
end;
end;
procedure InitHook(ACallback: THookCallback); register;
begin
// Hook := SetWindowsHookEx(WH_SHELL, @HookProc, HInstance, 0);
Hook := SetWindowsHookEx(WH_CBT, @HookProc, HInstance, 0);
if Hook = 0 then
begin
// ShowMessage(SysErrorMessage(GetLastError));
end
else
begin
WndHookCallback := ACallback;
end;
end;
procedure UninitHook; register;
begin
if Hook <> 0 then
UnhookWindowsHookEx(Hook);
WndHookCallback := nil;
end;
exports
InitHook,
UninitHook;
begin
end.
以及使用钩子的app的主要形式：
unit MainFo;
interface
uses
Windows, SysUtils, Forms, Dialogs, Classes, Controls, Buttons, StdCtrls;
type
THookTest_Fo = class(TForm)
Hook_Btn: TSpeedButton;
Output_Lbx: TListBox;
Test_Btn: TButton;
procedure Hook_BtnClick(Sender: TObject);
procedure Test_BtnClick(Sender: TObject);
public
destructor Destroy; override;
end;
var
HookTest_Fo: THookTest_Fo;
implementation
{$R *.dfm}
type
THookCallback = procedure(ACode, AWParam, ALParam: Integer); stdcall;
procedure InitHook(const ACallback: THookCallback); register; external 'HookHelper.dll';
procedure UninitHook; register; external 'HookHelper.dll';
procedure HookCallback(ACode, AWParam, ALParam: Integer); stdcall;
begin
if Assigned(HookTest_Fo) then
case ACode of
// HSHELL_WINDOWCREATED:
HCBT_CREATEWND:
HookTest_Fo.Output_Lbx.Items.Add('created handle #' + IntToStr(AWParam));
// HSHELL_WINDOWDESTROYED:
HCBT_DESTROYWND:
HookTest_Fo.Output_Lbx.Items.Add('destroyed handle #' + IntToStr(AWParam));
else
HookTest_Fo.Output_Lbx.Items.Add(Format('code: %d, WParam: $%x, LParam: $%x', [ACode, AWParam, ALParam]));
end;
end;
procedure THookTest_Fo.Test_BtnClick(Sender: TObject);
begin
ShowMessage('Boo!');
end;
destructor THookTest_Fo.Destroy;
begin
UninitHook; // just to make sure
inherited;
end;
procedure THookTest_Fo.Hook_BtnClick(Sender: TObject);
begin
if Hook_Btn.Down then
InitHook(HookCallback)
else
UninitHook;
end;
end.
【问题讨论】：
标签： windows delphi winapi hook