Delphi 鉤子開發實戰 (1)：核心概念、三大 API 與最簡線程級鍵盤鉤子入門

Windows 鉤子機制讓應用程式能攔截、監控、甚至修改系統訊息流。本文以最通俗易懂的比喻建立核心心智模型，介紹三大核心 API，並實作最簡單的線程級鍵盤鉤子攔截字母 A。

核心心智模型：系統、視窗與「賊」

1. 事件發生：使用者點擊滑鼠、輸入鍵盤。
2. 系統發現：Windows 核心第一時間偵測到硬體中斷。
3. 系統通知：系統封裝成訊息 (WM_LBUTTONDOWN, WM_KEYDOWN 等) 發送給目標視窗。
4. 視窗回應：視窗依訊息類型執行對應事件處理函數 (我們寫的 OnClick, OnKeyPress)。
5. 鉤子介入：如同「隔牆有耳」的賊，在系統發送訊息給視窗**之前**攔截、檢查、甚至吞噬訊息。

兩種鉤子範圍

三大核心 API

1. SetWindowsHookEx：安裝鉤子，返回鉤子句柄 (HHOOK)。
2. UnhookWindowsHookEx：移除鉤子，釋放資源。
3. CallNextHookEx：將訊息傳遞給鉤子鏈中下一個鉤子，**維持鏈完整性的關鍵**。

輔助函數：GetCurrentThreadId 取得當前線程 ID (線程級鉤子必需)。

最簡入門範例：線程級鍵盤鉤子攔截 'A'

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  end;

{ 回調函數聲明：必須 stdcall }
function KeyHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

var
  Form1: TForm1;

implementation

{$R *.DFM}

var
  hook: HHOOK;

{ 鍵盤鉤子回調實作 }
function KeyHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT;
begin
  if (wParam = 65) then  // 虛擬鍵碼 65 = 'A'
    Beep;                // 發出提示音
  Result := CallNextHookEx(hook, nCode, wParam, lParam);  // 繼續傳遞
end;

{ 視窗建立：安裝線程級鍵盤鉤子 }
procedure TForm1.FormCreate(Sender: TObject);
begin
  { WH_KEYBOARD=2, 函數指標, 當前模組句柄, 當前線程 ID }
  hook := SetWindowsHookEx(WH_KEYBOARD, @KeyHook, HInstance, GetCurrentThreadId);
end;

{ 視窗銷毀：移除鉤子 }
procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnhookWindowsHookEx(hook);
end;

end.

程式碼關鍵點逐行解析

執行驗證

1. 編譯執行程式，視窗顯示。
2. 點擊視窗使其取得焦點。
3. 按鍵盤 A → 聽到「嗶」聲。
4. 按其他鍵 → 無聲音，正常輸入。
5. 關閉視窗 → 鉤子自動移除。

常見新手誤區

• 以為鉤子在視窗程式碼中：實際上鉤子回調獨立於 VCL 事件迴圈，由系統直接呼叫。
• 忘記 CallNextHookEx：導致系統訊息死結，嚴重時需重開機恢復。
• 缺少 stdcall：最隱蔽的崩潰原因，編譯通過但執行即崩潰。
• 混淆線程級/全域級：線程級無需 DLL，全域級**強制** DLL。

學習路線圖

1. 第 1 步 (本文)：線程級鍵盤鉤子基本架構。
2. 第 2 步：參數深度解析 (lParam 位元結構)、stdcall 必要性。
3. 第 3 步：全域滑鼠鉤子 + DLL 建置 + 靜態/動態載入。
4. 第 4 步：鉤子鏈機制、CallNextHookEx 返回值、攔截/放行控制。
5. 第 5 步：DLL 資料回傳 (Timer 輪詢 / 訊息推送 / WM_COPYDATA)。
6. 第 6 步：雙向通訊 (SetHWnd + PostMessage)、低層級鉤子 (WH_MOUSE_LL)。

鉤子技術是 Windows 系統程式設計的皇冠上的明珠，掌握它能開發出熱鍵管理器、自動化測試工具、螢幕錄製軟體、遊戲防外掛等高階應用。從最簡單的線程級鉤子開始，逐步建立完整知識體系。