Windows訊息管理機構提供了能使應用程式存取控制訊息流μ
'c4所謂的鉤子(HOOK)機制。鉤子有多種，分別用來捕捉某一特定類型或某一範圍的訊息。如：鍵盤訊息，滑鼠訊息等。我們這裡僅以鍵盤鉤子的使用為例，討論在DELPHI下怎樣編寫DLL程式和怎樣在自己的程式中安裝使用鍵盤鉤子函數，並討論了不同程式使用同一DLL檔案時怎樣共享資料。
一、 鉤子過濾函數的編寫說明
由於鉤子過濾函數必須在獨立的模組中，也就是說我們必須先產生一個DLL框架，然後再在其中加入鉤子函數程式碼以及其他相關函數程式碼。我們這裡以鍵盤鉤子過濾函數的編寫為例來說明。具體步驟如下：
1.先生成一個DLL筐2架
2.編寫自己的鍵盤鉤子過濾函數
鉤子過濾函數必須是回調函數，其函數的4?形如下?o
function KeyHookPRoc(
iCode:Integer;
wParam:WPARAM;
lParam:LPARAM ) : LRESULT; stdcall ;export ;
在產生的DLL框架中加入自己的鍵盤鉤子處理函數來處理鍵盤訊息。
程式碼如下：…
if(iCode>=0) then begin
Result:=0; //初始化回傳值
// 在這裡加入自己的程式碼
end else
begin
Result:=CallNextHook(hOldKeyHook,iCode,wParam,lParam);
// hOldKeyHook是儲存的原鍵盤過濾函數5刂?
end;
3. 安裝鍵盤鉤子過濾函數
為安裝一個鉤子?_fd濾函數應呼叫SetWindowsHookEx函數（適用於Windows3.0的SetWindowsHook鉤子安裝函數現在已經廢棄不用）。此函數的原形如下：
HHOOK SetWindowsHookEx(
int idHook, // 安裝的?_b3子類型
HOOKPROC lpfn, // 鉤子過濾??f數位址
HINSTANCE hMod, // 任務句柄
DWord dwThreadId // 鉤子用於的目的
);
需要說明的是：?_a8常應該呼叫MakeProcInstance函數以取得一個輸出函數的前導碼的入口位址，然後將此位址作為SetWindowsHookEx的第二個參數lpfn。但由於Delphi提供了"靈巧呼叫(smart callback)"，使得MakeProcInstance可以省去，而直接將鉤子過濾函數名稱用作入口位址。
這樣當應用程式?_c3GetMessage或PeekMessage函數從訊息佇列中讀取訊息或有按鍵訊息(WM_KEYDOWN或WM_KEYUP)要處理時，系統就要呼叫鉤子過濾函數KeyHookProc處理鍵盤訊息。
4、 卸載鉤子過濾函數。
當鉤子函數不再需要時，應呼叫UnHookWindowsHookProc卸載安裝的鉤子以釋放系統資源。
完整的程序清單如下?_ba
Library KEYHOOK;
uses Windows;
const BUFFER_SIZE=16*1024;
const HOOK_MEM_FILENAME='SAMPLE KEY_HOOK_MEM_FILE';
const HOOK_MUTEX_NAME ='SAMPLE KEY_HOOK_MUTEX_NAME';
type
TShared=record
Keys : array[0..BUFFER_SIZE] of Char;
KeyCount : Integer;
end;
PShared=^TShared;
var
MemFile,HookMutex : THandle;
hOldKeyHook : HHook;
ProcSaveExit : Pointer;
Shared : PShared;
//鍵盤鉤子過濾函數
function KeyHookProc(iCode: Integer; wParam: WPARAM ; lParam: LPARAM):LRESULT
; stdcall; export;
const KeyPressMask = $80000000;
begin
if iCode < 0 then
Result := CallNextHookEx(hOldKeyHook, iCode, wParam, lParam)
else begin
if ((lParam and KeyPressMask)= 0) then // 鍵按下
begin
Shared^.Keys[Shared^.KeyCount]:=Char(wParam and $00ff);
Inc(Shared^.KeyCount);
if Shared^.KeyCount>=BUFFER_SIZE-1 then Shared^.KeyCount:=0;
end;
iCode:=-1;
Result := CallNextHookEx(hOldKeyHook, iCode, wParam, lParam);
end;
end;
// 設定鉤子過濾函數
function EnableKeyHook : BOOL ; export;
begin
Shared^.KeyCount:=0; //初始化鍵盤指針
if hOldKeyHook=0 then begin
hOldKeyHook := SetWindowsHookEx(WH_KEYBOARD,
KeyHookProc,
HInstance,
0);
end;
Result := (hOldKeyHook <> 0);
end;
//撤銷鉤子過濾函數
function DisableKeyHook: BOOL ; export;
begin
if hOldKeyHook<> 0 then
begin
UnHookWindowsHookEx(hOldKeyHook); // 解除Keyboard Hook
hOldKeyHook:= 0;
Shared^.KeyCount:=0;
end;
Result := (hOldKeyHook = 0);
end;
//取得鍵盤緩衝區中擊鍵的個數
function GetKeyCount :Integer ; export;
begin
Result:=Shared^.KeyCount;
end;
//取得鍵盤緩衝區的鍵
function GetKey(index:Integer) : Char ; export;
begin
Result:=Shared^.Keys[index];
end;
//清空鍵盤緩衝區
procedure ClearKeyString ; export;
begin
Shared^.KeyCount:=0;
end;
//DLL的退出處理過程
procedure KeyHookExit; far;
begin
if hOldKeyHook <> 0 then DisableKeyHook;
UnMapViewOfFile(Shared); // 釋放記憶體映體文件
CloseHandle(MemFile); // 關閉映像文件
ExitProc := ProcSaveExit;
end;
exports // 定義輸出函數
EnableKeyHook,
DisableKeyHook,
GetKeyCount,
ClearKeyString,
GetKey;
begin
// DLL 初始化部分
HookMutex:=CreateMutex(nil,True,HOOK_MUTEX_NAME);
// 透過建立記憶體映像檔以共享記憶體
MemFile:=OpenFileMapping(FILE_MAP_WRITE,False,
HOOK_MEM_FILENAME);
if MemFile=0 then
MemFile:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,
SizeOf(TShared) ,HOOK_MEM_FILENAME);
Shared:=MapViewOfFile(MemFile,File_MAP_WRITE,0,0,0);
ReleaseMutex(HookMutex);
CloseHandle(HookMutex);
ProcSaveExit := ExitProc; // 儲存DLL的ExitProc
ExitProc := @KeyHookExit; // 設定DLL新的ExitProc
end.
// 原始碼結束
二、 在自己的程式中使用編製好的鍵盤鉤子過濾函數。
鉤子函數編製好後，使用起來其實很簡單：先呼叫SetWindowsHookEx安裝自己的鉤子過濾函數，同時保存原先的鉤子過濾函數位址。這時鉤子函數就開始運作了，它將按照你的要求處理鍵盤訊息。程式運行完畢或不再需要監視鍵盤訊息時，呼叫UnHookWindowsHookProc函數卸載所安裝的鉤子函數，同時恢復原來的鉤子過濾函數位址。
下面就是使用在以上編製的鉤子函數的範例：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Panel1: TPanel;
bSetHook: TButton;
bCancelHook: TButton;
bReadKeys: TButton;
bClearKeys: TButton;
Panel2: TPanel;
procedure bSetHookClick(Sender: TObject);
procedure bCancelHookClick(Sender: TObject);
procedure bReadKeysClick(Sender: TObject);
procedure bClearKeysClick(Sender: TObject);
end;
var Form1: TForm1;
implementation
{$R *.DFM}
function EnableKeyHook : BOOL ; external 'KEYHOOK.DLL';
function DisableKeyHook : BOOL ; external 'KEYHOOK.DLL';
function GetKeyCount : Integer ; external 'KEYHOOK.DLL';
function GetKey(idx:Integer) : Char ; external 'KEYHOOK.DLL';
procedure ClearKeyString ; external 'KEYHOOK.DLL';
procedure TForm1.bSetHookClick(Sender: TObject); // 設定鍵盤鉤7ó
begin
EnableKeyHook;
bSetHook.Enabled :=False;
bCancelHook.Enabled:=True;
bReadKeys.Enabled :=True;
bClearKeys.Enabled :=True;
Panel2.Caption:=' 鍵盤鉤子已經設定';
end;
procedure TForm1.bCancelHookClick(Sender: TObject); // 卸載鍵盤鉤子
begin
DisableKeyHook;
bSetHook.Enabled :=True;
bCancelHook.Enabled:=False;
bReadKeys.Enabled :=False;
bClearKeys.Enabled :=False;
Panel2.Caption:=' 鍵盤鉤子沒有設定';
end;
procedure TForm1.bReadKeysClick(Sender: TObject); // 取得按鍵的歷史記錄
var i:Integer;
begin
Memo1.Lines.Clear; // 在Memo1中顯示按鍵歷史記錄
for i:=0 to GetKeyCount-1 do
Memo1.Text:=Memo1.Text+GetKey(i);
end;
procedure TForm1.bClearKeysClick(Sender: TObject); // 清除擊鍵歷史記錄
begin
Memo1.Clear;
ClearKeyString;
end;
end.
// 原始碼結束
三、 Windows95下DLL中實現共享內存
在上面的鉤子函數所在的DLL檔案中，需要使用共享內存，即，所有擊鍵的記錄儲存在同一個資料段中。為什麼要這樣做呢？這是因為Windows95的DLL呼叫方法與Windows3.X的方法不同。每個進（線）程在登入某動態連線庫時都會為該動態連線庫傳入一個新的實例句柄（即DLL資料段的句柄）。這使得DLL各個實例之間互不干擾，但這對那些所有DLL實例共享一組變數帶來一些困難。為了解決這個問題，我們在這裡透過建立記憶體映射檔案的方法來解決。即使用Windows的OpenFileMapping、CreateFileMapping和
MapViewOfFile三個函數來實作。使用方法如下：
…
MemFile是THandle類型，Shared是指標類型，HOOK_MEM_FILENAME是一常數字串
…
MemFile:=OpenFileMapping(FILE_MAP_WRITE,False,
HOOK_MEM_FILENAME); //開啟記憶體映射文件
if MemFile=0 then //開啟失敗則?_c2建置記憶體映射文件
MemFile:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,
SizeOf(TShared) ,HOOK_MEM_FILENAME);
//映射檔案到變數
Shared:=MapViewOfFile(MemFile,File_MAP_WRITE,0,0,0);
到目前為止，你已經知道要用Delphi編製鉤子函數有多容易。最後不得不提醒大家：鉤子函數雖然功能比較強，但如果使用不當將會嚴重影響系統的效率，所以要盡量避免使用系統鉤子。非要使用不可時也應該格外小心，應使其盡可能小地影響系統的運作。
[全文完]