学步园

程序作用:
在Explorer.exe的窗口接到任何一个鼠标消息时在Explorer.exe进程注入一个线程,该线程显示一个窗体.
程序的问题,如果程序在Explorer.exe还没有接收到有效的鼠标消息之前被关闭,则进程注入不会成功.
启动程序:
program Project1;
uses
     Forms,
     Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
     Application.Initialize;
     Application.CreateForm(TForm1, Form1);
     Application.Run;
end.

启动程序的窗口单元.

unit Unit1;
interface
uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs;
type
     TForm1 = class(TForm)
       procedure FormCreate(Sender: TObject);
     private
       { Private declarations }
     public
       { Public declarations }
     end;
var
     Form1: TForm1;
function EnableMouseHook:Boolean; stdcall; external 'HookDLL.dll' name 'EnableMouseHook';
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
     //启动钩子.
     EnableMouseHook;
end;
end.

钩子和线程注入DLL:
library hookDLL;
uses
     SysUtils,
     Classes,
     Hookunit in 'Hookunit.pas',
     Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
//导出函数.
exports EnableMouseHook,DisableMouseHook,CreateImmitThread;
begin
end.
//钩子和线程注入实现单元.
unit Hookunit;
interface
uses Windows,Messages,Controls,Sysutils,Dialogs;
Type
     TCreateImmitThread=Procedure;stdcall;
var hHk: HHOOK;//钩子的句柄值。
function MouseHookProc(nCode: Integer;WParam: WPARAM;LParam: LPARAM): LRESULT;stdcall;
//鼠标钩子的回调函数，即用它来处理得到消息后要干什么。
//nCode参数是Hook的标志，一般只关心小于0时。看下面的详细说明
//WParam参数表示鼠标消息的类型
//LParam参数是一个指向 TMOUSEHOOKSTRUCT 结构的指针。结构包含了鼠标消息的状态，我只用了hwnd一个
//即鼠标消息要传递给的窗口句柄。
//返回值如果不是0的话Windows就把这个消息丢掉，其它的程序就不会再收到这个消息了。
//两个函数都是Boolean类型，成功都是返回True
function EnableMouseHook:Boolean; stdcall; export;
function DisableMouseHook:Boolean; stdcall; export;
//创建注入线程.
Procedure CreateImmitThread; stdcall; export;
implementation
uses Classes , Unit2;
procedure HandleEvent(HLib:THandle); stdcall;
var
     Msg: TMsg;
     MutexHandle:THandle;
begin
     //再检查一次全局原子,如果该原是存在,则退出本函数,线程中止.
     MutexHandle := windows.GlobalFindAtom('abhjjhsdhjdshjds111');
     if MutexHandle <> 0 then
       Exit;
     MutexHandle:=Windows.GlobalAddAtom('abhjjhsdhjdshjds111');
     //添加一个全局原子.
     try
       //创建一个Form.
       Form2:=TForm2.Create(nil);
       try
         Form2.Show;
         //显示Form.
         //消息循环.
         while True do
         begin
           //如果Form已经被关闭.
           //注意这是和Form.OnClose事件和Form.OnDestroy事件配合使用的.
           if Form2=nil then
             Break;
           //检查消息队列.
           if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
           begin
             //如果得到WM_QUIT消息,则中止循环.
             if Msg.Message = WM_QUIT then
               Break;
             //分发消息.
             TranslateMessage(Msg);
             DispatchMessage(Msg);
           end;
         end;
       finally
         //如果Form2还没有被释放.
         if Form2<>nil then
           Form2.Free;
       end;
     finally
       //释放全局原子对象.
       Windows.GlobalDeleteAtom(MutexHandle);
     end;
end;
Procedure CreateImmitThread; stdcall;
var
     ThreadID:DWORD;
begin
     //该函唯一的功能就是创建并启动一个线程.
     CreateThread(nil, 0, @HandleEvent, nil, 0, ThreadID);
end;
function MouseHookProc(nCode: Integer;WParam: WPARAM;LParam:LPARAM): LRESULT;stdcall;
var a:Array[0..255] of char;
     s:String;
     H:THandle;
     P:Pointer;
     MutexHandle:THandle;
begin
     Result:=0;//最好首先给它一个返回值，不然会有警告的！记住这可不是C语言。
     //当nCode小于0时表示还有其它的Hook 必须把参数传给它。
     //此时就要用Api函数CallNextHookEx让它调用下一个Hook!!!当然不用好像也可以。
     if nCode < 0 then
       Result:=CallNextHookEx(hHk,nCode,wParam,lParam)//参数是现成的，直接用就可以了。
     else
     begin
       GetModuleFileName(0,a,255);
       s:=UpperCase(StrPas(a));
       if Pos('EXPLORER.EXE',s)>0 then//如果是资源管理器Explorer.EXE.
       begin
         MutexHandle := windows.GlobalFindAtom('abhjjhsdhjdshjds111');//检查是不存在全局原子
         if MutexHandle <> 0 then//如果存在,则表示该窗口已经显示出来了.
           exit;
         H:=LoadLibrary('HookDLL.dll');//装载需要注入的DLL,其实就是本DLL.
         if H<>INVALID_HANDLE_VALUE then
         begin
           P:=GetProcAddress(H,'CreateImmitThread');//得到注入的函数地址.
           if P<>nil then
             TCreateImmitThread(P);//执行函数,该函数仅启动一个线程.
         end;
       end;
     end;
end;
function EnableMouseHook:Boolean; stdcall; export;
begin
     if hHk = 0 then //为了安全，必须判断一下再设置钩子。
     Begin
       //第三个参数的Hinstance 在Delphi中有定义，用就可以了。第四个参数必须为0
       hHk := SetWindowsHookEx(WH_MOUSE,@MouseHookProc,Hinstance,0);
       Result := True;
     end
     else
       Result := False;
end;
function DisableMouseHook:Boolean; stdcall; export;
begin
     if hHk <> 0 then //如果有钩子就卸掉它。
     begin
       UnHookWindowsHookEx(hHk);
       hHk := 0;
       Result := True;
     end
     else
       Result := False;
end;
end.
注入后线程启动的窗体:
unit Unit2;
interface
uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, StdCtrls;
type
     TForm2 = class(TForm)
       Button1: TButton;
       procedure Button1Click(Sender: TObject);
       procedure FormClose(Sender: TObject; var Action: TCloseAction);
       procedure FormDestroy(Sender: TObject);
     private
       { Private declarations }
     public
       { Public declarations }
     end;
var
     Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
     Close;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     //窗口关闭时释放自身.
     Action:=caFree;
end;
procedure TForm2.FormDestroy(Sender: TObject);
begin
     //窗口释放时置Form2为nil
     Form2:=nil;
end;
end.