Delphi 建立鍵盤滑鼠動作紀錄與回放

bestlong

很多的教学软件或系统监视软件可以自动记录回放用户的输入文字或点击按钮等操作操作，这个功能的实现是使用了Windows的Hook函数。

  Windows 提供 API 函数 SetWindowsHookEx 来建立一个Hook，通过这个函数可以将一个程序添加到Hook链中监视Windows消息，函数语法为：

    SetWindowsHookEx(idHook: Integer; lpfn: TFNHookProc; hmod: HINST; dwThreadId: DWORD)

    其中参数idHook指定建立的监视函数类型。通过Windows MSDN帮助可以看到，SetWindowsHookEx函数提供15种不同的消息监视类型，在这里我们将使用 WH_JOURNALRECORD 和 WH_JOURNALPLAYBACK 来监视键盘和鼠标操作。参数 lpfn 指定消息函数，在相应的消息产生后，系统会调用该函数并将消息值传递给该函数供处理。
函数的一般形式为：

    HookProc (code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;

  其中 code 为系统指示标记，wParam 和 lParam 为附加参数，根据不同的消息监视类型而不同。只要在程序中建立这样一个函数再通过 SetWindowsHookEx 函数将它加入到消息监视链中就可以处理消息了。
    在不需要监视系统消息时需要调用提供 UnHookWindowsHookEx 来解除对消息的监视。
    WH_JOURNALRECORD 和 WH_JOURNALPLAYBACK 类型是两种相反的 Hook 类型，前者获得鼠标、键盘动作消息，后者回放鼠标键盘消息。所以在程序中我们需要建立两个消息函数，一个用于纪录鼠标键盘操作并保存到一个数组中，另一个用于将保存的操作返给系统回放。

下面来建立程序，在 Delphi 中建立一个工程，在 Form1 上添加 3 个按钮用于程序操作。另外再添加一个按钮控件和一个 Edit 控件用于验证操作。 下面是Form1的全部代码

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   
7.   StdCtrls;
   
8. 
   
9. type
   
10.   TForm1 = class(TForm)
    
11.     Button1: TButton;
    
12.     Button2: TButton;
    
13.     Button3: TButton;
    
14.     procedure FormCreate(Sender: TObject);
    
15.     procedure Button1Click(Sender: TObject);
    
16.     procedure Button2Click(Sender: TObject);
    
17.     procedure Button3Click(Sender: TObject);
    
18.   private
    
19.     { Private declarations }
    
20.   public
    
21.     { Public declarations }
    
22.   end;
    
23. 
    
24. var
    
25.   Form1: TForm1;
    
26. 
    
27.   EventArr: array[0..1000] of EVENTMSG;
    
28.   EventLog: Integer;
    
29.   PlayLog: Integer;
    
30.   hHook, hPlay: Integer;
    
31.   recOK: Integer;
    
32.   canPlay: Integer;
    
33.   bDelay: Boolean;
    
34. 
    
35. implementation
    
36. 
    
37. {$R *.DFM}
    
38. 
    
39. Function PlayProc(iCode: Integer; wParam: wParam; lParam: lParam): LRESULT; stdcall;
    
40. begin
    
41.   canPlay := 1;
    
42.   Result := 0;
    
43. 
    
44.   if iCode < 0 then  Result := CallNextHookEx(hPlay, iCode, wParam, lParam)
    
45.   else if iCode = HC_SYSMODALON  then  canPlay := 0
    
46.   else if iCode = HC_SYSMODALOFF then  canPlay := 1
    
47.   else if ((canPlay = 1 ) and (iCode = HC_GETNEXT)) then
    
48.   begin
    
49.     if bDelay then
    
50.     begin
    
51.       bDelay := False;
    
52.       Result := 50;
    
53.     end;
    
54.     pEventMSG(lParam)^ := EventArr[PlayLog];
    
55.   end
    
56.   else if ((canPlay = 1) and (iCode = HC_SKIP)) then
    
57.   begin
    
58.     bDelay  := True;
    
59.     PlayLog := PlayLog + 1;
    
60.   end;
    
61.   if PlayLog >= EventLog then
    
62.   begin
    
63.     UnHookWindowsHookEx(hPlay);
    
64.   end;
    
65. end;
    
66. 
    
67. function HookProc(iCode: Integer; wParam: wParam; lParam: lParam): LRESULT; stdcall;
    
68. begin
    
69.   recOK := 1;
    
70.   Result := 0;
    
71. 
    
72.   if iCode < 0 then  Result := CallNextHookEx(hHook, iCode, wParam, lParam)
    
73.   else if iCode = HC_SYSMODALON  then  recOK := 0
    
74.   else if iCode = HC_SYSMODALOFF then  recOK := 1
    
75.   else if ((recOK > 0) and (iCode = HC_ACTION)) then
    
76.   begin
    
77.     EventArr[EventLog] := pEventMSG(lParam)^;
    
78.     EventLog := EventLog + 1;
    
79. 
    
80.     if EventLog >= 1000 then
    
81.     begin
    
82.       UnHookWindowsHookEx(hHook);
    
83.     end;
    
84.   end;
    
85. end;
    
86. 
    
87. procedure TForm1.FormCreate(Sender: TObject);
    
88. begin
    
89.   Button1.Caption := '紀錄';
    
90.   Button2.Caption := '停止';
    
91.   Button3.Caption := '回放';
    
92.   Button2.Enabled := False;
    
93.   Button3.Enabled := False;
    
94. end;
    
95. 
    
96. procedure TForm1.Button1Click(Sender: TObject);
    
97. begin
    
98.   EventLog := 0;
    
99.   //建立鍵盤滑鼠操作消息紀錄鏈
    
100.   hHook := SetWindowsHookEx(WH_JOURNALRECORD, HookProc, HInstance, 0);
     
101.   Button2.Enabled := True;
     
102.   Button1.Enabled := False;
     
103. end;
     
104. 
     
105. procedure TForm1.Button2Click(Sender: TObject);
     
106. begin
     
107.   UnHookWindowsHookEx(hHook);
     
108.   hHook := 0;
     
109. 
     
110.   Button1.Enabled := True;
     
111.   Button2.Enabled := False;
     
112.   Button3.Enabled := True;
     
113. end;
     
114. 
     
115. procedure TForm1.Button3Click(Sender: TObject);
     
116. begin
     
117.   PlayLog := 0;
     
118.   //建立鍵盤滑鼠操作消息紀錄回放鏈
     
119.   hPlay := SetWindowsHookEx(WH_JOURNALPLAYBACK, PlayProc, HInstance,0);
     
120. 
     
121.   Button3.Enabled:=False;
     
122. end;
     
123. 
     
124. end.

複製代碼

代码添加完毕后，运行程序，点击“纪录”按钮开始纪录操作，这时你可以在文本控件中输入一些文字或者点击“范例”按钮，然后点击“停止”按钮停止纪录，再点击“回放”按钮就可以讲先前所做的操作回放。

在上面的程序中，HookProc 是纪录操作的消息函数，每当有鼠标键盘消息发生时，系统都会调用该函数，消息信息就保存在地址 lParam 中，我们可以讲消息保存在一个数组中。PlayProc 是消息回放函数，当系统可以执行消息回放时调用该函数，程序就将先前纪录的消息值返回到 lParam 指向的区域中，系统就会执行该消息，从而实现了消息回放。