delphi-学用钩子函数
编者按:在
计算机病毒泛滥的今天,我们正使用着各种杀毒软件,你知道这些杀毒
软件和病毒是怎么编写的吗?其实,这些杀毒软件和病毒都用到了一种重要的函数——钩子函数。
使用钩子函数并不是什么高深的技术,很早在Microsoft的Win32 SDK手册上就有记载。不过很可惜要看懂Microsoft的手册,可是不容易的事!而且它的例子是使用SDK写的,又不完整!这就让我们这些只会Delphi的程序员更看不懂了。
前段时间我研究了一下钩子函数,现在我把我几周的研究成果写出来,希望对大家有所帮助。
钩子函数一共有12种,分为全局钩子和线程钩子两种。线程钩子就只监视某个线程,全局钩子可以监视Windows的所有线程。具体的你可以看看Delphi 带的Win32 SDK(说实话有些钩子我也没有用过^_^),全局钩子是必须用DLL加载,也就是说钩子函数必须包装为一个DLL文件,然后再在主程序中调用钩子DLL中函数才可以!而且有些钩子是必须使用DLL加载为全局钩子,其他的钩子就可以分为全局和进程两种。
再解释设置钩子的Api函数:
function SetWindowsHookEx(idHook: Integer; lpfn: TFNHookProc; hmod: HINST; dwThreadId: DWORD): HHOOK; stdcall;
其中第一个参数是钩子的类型;第二个参数是钩子函数的地址;第三个参数是包含钩子函数的模块句柄;第四个参数指定监视的线程;返回钩子句柄。如果指定了某个确定的线程就只监视那个线程,即是线程钩子;如果为空,即是监视所有线程的全局钩子。
如果你只想使用进程钩子的话,有一个现成的控件可以用,就是Rx的RxWindowHook控件。拖到窗体上,设置Active为True就可以了。然后它只有BeforeMessage(消息从消息队列取走前)和AfterMessage(消息从消息队列取走后)两个事件,响应它就可以了,怎么用就看你的了。
下面我说说全局钩子的使用!我用最简单的鼠标全局钩子讲解,我假定你懂如何写DLL。来,看一个最简单的源程序:
一、DLL的工程文件
library hookprj;
uses
SysUtils,
Classes,
hkprocunit in 'hkprocunit.pas';
{$R *.RES}
exports //只要把这两个函数输出就可以了,EnableMouseHook,DisableMouseHook;//不会不懂函数的意思吧^_^
begin
end.
二、DLL输出函数的实现单元
unit hkprocunit;
interface
uses
Windows,Messages;
var
hHk: HHOOK;//钩子的句柄值。
function MouseHookProc(nCode: Integer;WParam: WPARAM;LParam: LPARAM): LRESULT;stdcall;
//鼠标钩子的回调函数,即用它来处理得到消息后要干什么。这里我只是发送一个//WM_PASTE消息。
//nCode参数是Hook的标志,一般只关
心小于0时。看下面的详细说明
//WParam参数表示鼠标消息的类型
//LParam参数是一个指向 TMOUSEHOOKSTRUCT 结构的指针。结构包含了鼠标消息的状态,我只用了hwnd一个
//即鼠标消息要传递给的窗口句柄。
//返回值如果不是0的话Windows就把这个消息丢掉,其它的
程序就不会再收到这个消息了。
function EnableMouseHook:Boolean; stdcall; export;
function DisableMouseHook:Boolean; stdcal; export;//两个函数都是Boolean类型,成功都是返回True
implementation
function MouseHookProc(nCode: Integer;WParam: WPARAM;LParam:LPARAM): LRESULT;stdcall;
var
MouseHookStruct: ^TMOUSEHOOKSTRUCT;//这个结构
Delphi在Windows单元有定义,直接用就可以了。
nState: SHORT;//得到键盘状态的GetKeyState函数的返回值。这是一个16位的数。
begin
Result := 0; //最好首先给它一个返回值,不然会有警告的!记住这可不是C语言。
//当nCode小于0时表示还有其它的Hook必须把参数传给它。
//此时就要用Api函数CallNextHookEx让它调用下一个Hook!!!当然不用好像也可以。
if nCode < 0