Delphi 中的消息钩子函数和Windows子类处理.docxVIP

首先我们先看一下安装HOOK 的函数： HHOOK SetWindowsHookEx( int idHook,要//安装的 HOOK 的类型HOOKPROC lpfn, //HOOK的回调函数HINSTANCE hMod,//进程 DWORD dwThreadId //程序的线程，如果为 0 则是全局HOOK ); 熟悉了SetWindowsHookEx 函数，我们就能开始我们的工作，挂钩进程。 首先打开Delphi，创建一个 DLL 工程(DLL Wizard。) 然后创建一个新的单元(Unit1。)首先在单元的 interface下面声明要用到的函数。 var OldHook:HHOOK;