想用DELPHI编制钩子函数的请进(0分)

zwyl2001 · 2001-09-20

用DELPHI编制钩子函数 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编制钩子函数有多么容易。最后不得不提醒大家：钩子函数虽然功能比较强，但如果使用不当将会严重影响系统的效率，所以要尽量避免使用系统钩子。非要使用不可时也应该格外小心，应使之尽可能小地影响系统的运行。

atorm · 2001-09-20

非常感谢，我正需要这类资料。

dinjian · 2001-09-25

我也在学这一方面的的东西，感激万分！

hlsl · 2001-10-12

你那个HInstance是在哪里确定的？ 还有啊，一定要用内存映射文件吗？

micony · 2001-10-21

呵呵,这为仁兄真够意思

7030 · 2001-10-21

多谢了!

重载Corser · 2001-10-21

急啊[

] 那个HInstance在vC中可以设为全局变量，在Delphi却不能什么道理？

Jams · 2001-10-27

>>

xcode · 2001-10-30

我是初学者，有没有人愿意详细讲一下，钩子函数到底是怎么会事呀？

LitterTiger · 2001-10-30

very good

ydfq · 2001-10-30

未来107 · 2001-11-25

朋友们，如何将hook(dll)中捕获的消息让调用它的主程序得知，比如当hook捕获鼠标双击 后，在主程序的一个文本框中显示‘双击‘。这问题我在以下id中已提出 http://www.delphibbs.com/delphibbs/dispq.asp?lid=747514

snakeqi · 2002-01-11

好像是哪里抄来的吧

w_yt · 2002-01-13

blackfish · 2002-01-16

不错

tt.t · 2002-02-10

抄来的

王寒松 · 2002-02-11

windows系统和程序之间交流是靠消息系统来位置。每个应用程序都会产生消息 有程序自身内部消息(由应用程序自己定义的消息) 也有的是windows系统的公用类型 消息. 所有的消息都要放到操作系统的消息循环里. 由操作系统 分发(dispatch) ,  系统发送公用类型消息时(系统会通知给当前运行的其他程序的 顶层窗口topwindow),比如我的程序改变了系统时间(产生wm_timechange)。 而如果是程序自身的鼠标或键盘消息，则消息会发送给应用程序自身。 钩子函数就是要截获这些消息而设计。钩子就是一个回调函数. 加载了钩子后， 程序收到这些消息就会自动调用钩子回调函数.  如果钩子是放到程序内部的， 那么它只能截获应用程序自身的消息再就是windows 通知给应用程序的那些公用消息 如果钩子是放到DLL里，  因为DLL 是放到系统的公用代码段运行, 所以DLL 可以截获整个系统的消息变化,也就是说可以截获其他应用程序的键盘鼠标消息等等。

jbas · 2002-03-18

＞＞如果钩子是放到程序内部的， ＞＞那么它只能截获应用程序自身的消息再就是windows 通知给应用程序的那些公用消息 用日志钩子，可以不用dll，就可以实现全局的监视．；）

SuperJS · 2002-03-18

jbas： 还请指教该如何作日志钩子呢！在9X系列上可行吗？

jbas · 2002-03-18

SuperJS,大侠： 　　我刚学不久，这里有一个例子，你看看吧！在win98下没测试． http://www.delphibbs.com/delphibbs/dispq.asp?lid=955227

想用DELPHI编制钩子函数的请进(0分)

zwyl2001

Unregistered / Unconfirmed

atorm

Unregistered / Unconfirmed

dinjian

Unregistered / Unconfirmed

hlsl

Unregistered / Unconfirmed

micony

Unregistered / Unconfirmed

7030

Unregistered / Unconfirmed

重载Corser

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

xcode

Unregistered / Unconfirmed

LitterTiger

Unregistered / Unconfirmed

ydfq

Unregistered / Unconfirmed

未来107

Unregistered / Unconfirmed

snakeqi

Unregistered / Unconfirmed

w_yt

Unregistered / Unconfirmed

blackfish

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

王寒松

Unregistered / Unconfirmed

jbas

Unregistered / Unconfirmed

SuperJS

Unregistered / Unconfirmed

jbas

Unregistered / Unconfirmed

Similar threads