用C++ Builder 5.0编HOOK程序

　　五

　　步骤如下：

　　在DLL中的工程中，假设为MouseHook.bpr(产生MouseHook.DLL)

　　1.在Unit1.cpp的最前面（#include <windows.h>之前)加上

　　#pragma option -zRSHSEG　　　// 改变缺省数据段名

　　#pragma option -zTSHCLASS　　// 改变缺省数据类名

　　2.新建一工程同名的纯文本文件MouseHook.def,其内容只要

　　一行：

　　SEGMENTS　　SHSEG　　CLASS　　'SHCLASS'　SHARED

　　并将此文件用Project->Add Project增加到工程中；

　　3.在你的程序代码的前面定义的全局变量都将是DLL共享的，

　　在Unit1.cpp中，例如：

　　// 下面的程序将产生有三个导出函数的MouseHook.DLL
// 纯文本文件　MouseHook.def的内容如下:
// SEGMENTS　　SHSEG　　CLASS　　'SHCLASS'　SHARED
#pragma option -zRSHSEG　　　// 改变缺省数据段名
#pragma option -zTSHCLASS　　// 改变缺省数据类名
#include <windows.h>
#pragma argsused
// 以下都将是共享区内存变量
POINT　MouseLoc={0,0};　　　// 存放鼠标位置
HHOOK　NewHook=NULL;　　　　// 存放新钩子句柄
int　　LoadCount=0;　　　　// DLL装入次数计数
HINSTANCE　DllHinst;
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
　　 DllHinst=hinst;
　　 if (reason==DLL_PROCESS_ATTACH)　　// DLL入口
　　　　　 LoadCount+=1;　　　　　　　　// 装入计数
　　 else
　　　　 if (reason==DLL_PROCESS_DETACH) // DLL出口处理
　　　　　　 LoadCount-=1;
　　 return 1;
}
extern "C" __declspec(dllexport)
void GetMouse(int &mx,int &my,int &js)　// DLL导出函数GetMouse()
{
　　 mx=MouseLoc.x;　　　// 送出鼠标位置
　　 my=MouseLoc.y;
　　 js=LoadCount;　　　// 送出DLL装入次数
}
LRESULT CALLBACK MouseHook(int nCode,
　　　　　　　　　 WPARAM wParam,LPARAM lParam)
{
　　 if (nCode==HC_ACTION)
　　　 {
　　　　　 MOUSEHOOKSTRUCT *l=(MOUSEHOOKSTRUCT *)lParam;
　　　　　 MouseLoc=l->pt;　//送鼠标位置
　　　 }
　　 return(CallNextHookEx(NewHook,nCode,wParam,lParam));
}
extern "C" __declspec(dllexport)
void EnableHook()　　　　// 导出函数EnableHook()
{
　　　 if (NewHook==NULL)　　//　安装新钩子
　　　　 NewHook=SetWindowsHookEx(WH_MOUSE,
　　　　　　　　　　 (HOOKPROC)MouseHook,
　　　　　　　　　　　 DllHinst,0);
}
extern "C" __declspec(dllexport)
void DisableHook()　　　// 导出函数DisableHook()
{
　　 if (NewHook!=NULL)
　　　　 {
　　　　　 UnhookWindowsHookEx(NewHook);
　　　　　 NewHook=NULL; // 卸掉新钩子
　　　　 }
}
//==========================================================
// CallHook.EXE,将调用全局鼠标全局钩子MouseHook.DLL
// 静态装入MouseHook.DLL,工程中须用 MouseGook.Lib
#include <vcl.h>
#pragma hdrstop
#include "CallUnit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
　　　　 : TForm(Owner)
{
}
//---------------------------------------------------------------------------
extern "C" __declspec(dllimport)
void　EnableHook();　　　　　　　// DLL导入函数1
extern "C" __declspec(dllimport)
void　DisableHook();　　　　　　// DLL导入函数2
extern "C" __declspec(dllimport)
void　GetMouse(int &mx,int &my,int &loadcount); // DLL导入函数3
void __fastcall TForm1::Button1Click(TObject *Sender)
{
　　 EnableHook();
　　 int x,y,loadcount;
　　 while (!Application->Terminated)
　　　 {　// 不停在从DLL中取回鼠标位置
　　　　　 GetMouse(x,y,loadcount);
　　　　　 Edit1->Text=String(x)+","+String(y);
　　　　　 Edit2->Text=loadcount;　// 显示DLL装入次数
　　　　　 Application->ProcessMessages();
　　　 }
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
　　 DisableHook();
}
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
　　 DisableHook();
}
// ok,已经深夜1点了，别忘了给俺加点分!!!!!!!!!!!!!!!!