Delphi 鉤子開發實戰 (4)：鉤子鏈機制、CallNextHookEx 返回值與攔截控制

深入理解 Windows 鉤子鏈運作機制，是掌握鉤子開發的關鍵。本文詳細解析鉤子鏈的「後進先出」執行順序、CallNextHookEx 的傳遞責任、以及鉤子函數返回值對訊息攔截 (吞噬/放行) 的決定性影響。

鉤子鏈核心概念

• 系統為每種鉤子類型 (共 14 種) 維護一條獨立鏈。
• 安裝鉤子 (SetWindowsHookEx) 將新鉤子**插入鏈頭**。
• 觸發事件時，**鏈頭最新安裝的鉤子最先執行** (LIFO: Last In, First Out)。
• 當前鉤子**必須呼叫 CallNextHookEx** 將控制權傳給鏈中下一個鉤子，否則鏈中斷，後續鉤子永不執行。
• UnhookWindowsHookEx 從鏈移除指定鉤子，不影響其他鉤子。

CallNextHookEx 參數傳遞責任

CallNextHookEx(hook, nCode, wParam, lParam);

• 原封不動將系統傳入的參數傳給下一個鉤子。
• 修改參數屬於進階/危險操作 (如修改滑鼠座標、按鍵碼)。
• 返回值：下一個鉤子的返回值 (層層回傳)，最終返回給系統。

鉤子函數返回值的攔截語意 (以鍵盤鉤子 WH_KEYBOARD 為例)

關鍵口訣：鍵盤/滑鼠鉤子返回 0 = 放行，非 0 = 攔截銷毀。

驗證範例：鍵盤鉤子攔截控制

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  hook: HHOOK;

{ 鍵盤鉤子回調：記錄按鍵碼並根據返回值決定攔截 }
function MyKeyHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  Form1.Memo1.Lines.Add(IntToStr(wParam));  // 記錄虛擬鍵碼
  Result := 0;  // 修改此處測試：0=放行, 1=攔截
end;

{ 安裝線程級鍵盤鉤子 }
procedure TForm1.Button1Click(Sender: TObject);
begin
  hook := SetWindowsHookEx(WH_KEYBOARD, @MyKeyHook, HInstance, GetCurrentThreadId);
  Memo1.Clear;
  Caption := '鉤子啟動 (返回 0: 放行)';
end;

{ 移除鉤子 }
procedure TForm1.Button2Click(Sender: TObject);
begin
  UnhookWindowsHookEx(hook);
  Caption := '鉤子關閉';
end;

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

end.

實測現象對照

1. 無鉤子：Memo 正常輸入 'a'。
2. 鉤子返回 0：Memo 記錄鍵碼 (65)，**且**輸入框正常出現 'a' (放行)。
3. 鉤子返回 1：Memo 記錄鍵碼 (65)，**但**輸入框**無任何字元** (攔截銷毀)。

隱藏細節：按鍵雙重訊息

按一次鍵產生兩個訊息：WM_KEYDOWN (按下) + WM_KEYUP (釋放)，鉤子都會攔截，故 Memo 記錄兩次鍵碼。區分方法在 lParam 高位旗標 (第 31 位: 0=Down, 1=Up)，下篇再詳述。

關於函數指標傳遞的小秘密

SetWindowsHookEx(WH_KEYBOARD, @MyKeyHook, ...);  // 用 @ 取址
SetWindowsHookEx(WH_KEYBOARD, MyKeyHook, ...);   // 直接用函數名也可！

原因：Delphi 中函數名稱本身即代表其進入點位址，@ 與 Addr 僅為語法糖，編譯器自動處理。

最佳實務建議

1. 永遠呼叫 CallNextHookEx：除非明確要攔截訊息 (如熱鍵處理)，否則務必傳遞鏈，維護系統穩定。
2. 返回值傳遞：Result := CallNextHookEx(...) 將下游返回值原樣回傳，符合 Windows 規範。
3. 攔截慎重：全域鍵盤鉤子返回非 0 會導致該鍵全系統失效，極度影響使用者體驗，僅限極特定場景 (如密碼輸入保護、遊戲防外掛)。
4. 執行緒安全：全域鉤子回調在系統進程執行，避免 VCL/UI 操作，僅做極簡邏輯 (記錄、發訊息)。

鉤子類型對照表 (節錄)

掌握鉤子鏈機制與返回值語意，是從「能用鉤子」進階到「精準控制鉤子」的分水嶺。

1. 上一篇文章： Delphi 鉤子開發實戰 (5)：DLL 鉤子資料回傳與 Timer 輪詢機制
2. 下一篇文章： Delphi 鉤子開發實戰 (3)：建立全域滑鼠鉤子 DLL 完整流程與動態載入技巧

Delphi

Delphi 7 Indy 元件開發 TCP Socket 應用：阻塞式模型與 TIdAntiFreeze 詳解

Indy 簡介 Internet Direct (Indy)

Delphi DataSnap 2010 入門實戰 (六)：客戶端詳細建立與連線配置步驟

伺服器端準備就緒 伺服器專案已編譯並獨立執行 (datasn

Delphi 資源文件實戰（6）：菜單資源嵌入與 LoadMenu/SetMenu 動態加載

RC 文件定義菜單資源 MyMenu1 MENU BEGIN

再學GDI+[72]: 區域建立完全指南 - 矩形、路徑與 GDI 句柄三大來源

前言 TGPRegion 是 GDI+ 中處理不規則圖形剪裁