本人新手，学习delphi通过远程钩子向目标进程注入dll，dll中封装了一个窗体，注入目标程序成功后，在目标程序上按下END键呼出这个窗体，我这个程序写的非常简单，仅仅是在dll文件里封装了一个窗体，主程序把dll文件注入目标进程后通过热键END把窗口呼出就算成功。

目前我遇到的问题：在注入所有的不涉及到3D渲染方面程序，呼出都成功了；但是，一旦涉及到程序本身会带3D的——我试验了很多3D游戏，魔兽3，CS1.6等等，一按热键只见呼出窗口象发疯一样不断的生成，这是为什么？为什么会这样，难道3D渲染下建立窗口有什么特别之处？

源代码

dll的代码：
工程文件代码
==========
library   hook32;

uses
SysUtils,
Forms,
Classes,
myDLl   in   'myDLl.pas'   {Form1};

{$R   *.res}

exports
HookOn,HookOff;

begin
{Application.Initialize;
Application.Run;   }
end.
==========

dll主文件代码
==========
unit   mydll;

interface

uses
Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,
Dialogs,   StdCtrls,   ExtCtrls   ,   ComCtrls;

type
TForm1   =   class(TForm)
Button1:   TButton;
private
{   Private   declarations   }
public
{   Public   declarations   }
end;

var
Form1:   TForm1;
function   HookProc(nCode:Integer;WParam:   WPARAM;LParam:LPARAM):LRESULT;stdcall;
function   HookOn(lpHwnd:HWND;lpType:Longint):Longint;stdcall;export;
function   HookOff:Boolean;stdcall;export;

implementation

var
hHk:   HHOOK=0;   //钩子的句柄
hThread:   Cardinal;   //长整形数据，窗口线程的标示符
hmod:   Pointer;   //进程标示符的指针

{$R   *.dfm}
function   HookProc(nCode:Integer;WParam:   WPARAM;LParam:LPARAM):LRESULT;stdcall;
begin
if   (wParam=VK_END)   and   ((LParam   and   $40000000)   <>   0)   then
begin
Form1:=TForm1.Create(Application);
Form1.show;
end;
Result   :=0   //CallNextHookEx(hHk,nCode,WParam,LParam);
end;
function   HookOn(lpHwnd:HWND;lpType:Longint):   Longint;stdcall;   export;
begin
hThread   :=GetWindowThreadProcessId(lpHwnd,hmod);
//注入开始
hHk   :=SetWindowsHookEx(lpType,@HookProc,hInstance,hThread);   //   WH_KEYBOARD
Result   :=hHk
end;

function   HookOff:Boolean;stdcall;   export;
begin
if   hHk <> 0   then
begin
//移除挂钩
UnHookWindowsHookEx(hHk);
hHk   :=0;
Result   :=true;
end
else
Result   :=false;
end;

end.
==========

以下是调用dll的程序的代码
==========
unit   Unit1;

interface

uses
Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,
Dialogs,   StdCtrls,   ExtCtrls,   XPMan;

type
TForm1   =   class(TForm)
Button1:   TButton;
Button2:   TButton;
procedure   FormClose(Sender:   TObject;   var   Action:   TCloseAction);
procedure   Button1Click(Sender:   TObject);
procedure   Button2Click(Sender:   TObject);

private
{   Private   declarations   }
public
{   Public   declarations   }
end;

var
Form1:   TForm1;
function   HookOn(lpHwnd:HWND;lpType:Longint):Longint;stdcall;external   'Hook32.dll'   name   'HookOn';
function   HookOff:Boolean;stdcall;external   'Hook32.dll'   name   'HookOff';
implementation

{$R   *.dfm}

procedure   TForm1.FormClose(Sender:   TObject;   var   Action:   TCloseAction);
begin
hookoff;
end;

procedure   TForm1.Button1Click(Sender:   TObject);
var

h1:HWND;
begin

h1:=FindWindow(NIL,'counter-strike');//这是窗口的句柄，要自己找到后，填写入。
if   h1=0   then   showmessage('没找到进程!');
if   h1> 0   then   showmessage('找到进程!');
sleep(200);   
HookOn(h1,WH_KEYBOARD);

end;

procedure   TForm1.Button2Click(Sender:   TObject);
begin
HookOff;
end;

end.
==========

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课