使用SetWindowsHookEx时出现“E2036 Variable required”错误的求助

嘿，我之前也踩过这个Delphi钩子的坑！这个错误的根源其实是Delphi类方法的特殊机制在搞鬼，我给你一步步讲清楚怎么解决：

首先，你写的KeyboardHookProc是TForm1类里的普通成员方法，这类方法会隐含一个Self参数（指向当前Form实例的指针），但Windows的SetWindowsHookEx需要的是一个没有隐含参数的标准stdcall函数指针，直接用@KeyboardHookProc取地址的话，编译器会因为这个隐含参数的存在报错“E2036 Variable required”。

给你两个最常用的解决办法，按需选择：

方法一：把钩子过程改成类静态方法 #

这是最贴合你现有代码结构的方式，只需要修改方法的声明：
在TForm1的private部分，给KeyboardHookProc加上class关键字，把它变成静态类方法：

private
  KBHook: HHook;
  class function KeyboardHookProc(Code: Integer; WordParam: Word; LongParam: LongInt): LongInt; stdcall;

然后在FormCreate里调用SetWindowsHookEx的时候，要明确指定类名：

KBHook := SetWindowsHookEx(WH_KEYBOARD, @TForm1.KeyboardHookProc, HInstance, 0);

静态类方法没有隐含的Self参数，所以它的函数指针完全符合Windows API的要求。

方法二：把钩子过程改成全局函数 #

如果你的钩子过程不需要访问Form里的控件（比如ListBox1），可以直接把KeyboardHookProc移到TForm1类的外面，变成单元的全局函数：

// 放在单元的interface或者implementation部分，TForm1类的外面
function KeyboardHookProc(Code: Integer; WordParam: Word; LongParam: LongInt): LongInt; stdcall;
begin
  // 你的钩子逻辑
  Result := CallNextHookEx(0, Code, WordParam, LongParam);
end;

这时候FormCreate里直接传@KeyboardHookProc就可以了，完全不会有参数问题。

额外注意事项 #

• 如果用静态方法，还需要在钩子过程里访问Form的控件（比如更新ListBox1），可以用单元里的全局Form变量（默认Delphi会自动生成var Form1: TForm1;），在静态方法里直接写Form1.ListBox1.Items.Add(...)就行。
• 一定要记得在FormDestroy里卸载钩子，不然程序退出后钩子可能还挂着，导致内存泄漏或者奇怪的问题：

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if KBHook <> 0 then
    UnhookWindowsHookEx(KBHook);
end;

备注：内容来源于stack exchange，提问作者akira789