Delphi 在游戏中创建窗体（吐血的详细）

API函数中有个SetWindowsHookEx，SetWindowsHookEx函数的可以在系统上安装一个HOOK。安装了金山毒霸的系统，会认为这玩意为病毒....不知道为什么，缺点是被监视的目标进程必须有窗口，这样SetWindowsHookEx才能将DLL注入目标进程中。而且，目标程序已经运行了，那么，在窗口创建之前的Api函数就不能被Hook了。接下来就讲一哈嘛：

   可以先准备需要一个用来注入的dll（inhook.dll）及一个调用程序(mir.exe)
    流程：
mir.exe
procedure TestHook;
var pwnd,hChild, hwndInject :hwnd;
    msg:tmsg;
begin
   //通过窗口标题用FindWindow找到要注入的程序的主窗口句柄pwnd
   pwnd := findwindow("Progman",nil);
   //用FindwindowEx(hMain,0,nil,nil)找到要处理的子窗口句柄hChild
   hChild := findWindowEx(pwnd,0,nil,nil);
   //用getwindowThreadProcessid(hChild,nil)找到要注入的线程
   dwThreadID := getwindowThreadProcessid(hChild,nil);
   //调用 inject.dll的SetInjectHook方法
   SetInjectHook(dwThreadID);
   //等待消息返回
   getmessage(msg,0,0,0);
   //找到注入的窗口
   hwndInject:= findwindow(nil,"InjectForm");
   //发送控制消息,将目标窗体的句柄作为wparam，控制参数以lparam传入
   sendMessage( hwndInject, wm_app,hChild,integer(true));
   //关闭注入的窗口
   sendMessage( hwndInject,wm_close,0,0);
   //等待窗口关闭
   sleep(500);
   //检查是否成功关闭
   assert(not iswindow( hwndInject));
   //去掉挂钩
   setDipsHook(0);
end;
//下面说明 Inhook.dll的SetInjectHook的具体*作
在全局定义以下变量
var
   g_hhook :Hhook=0;
   g_dwThreadidInject :dword=0;
   g_hInjectfrm:hwnd;
function SetInjectHook(dwThreadid:DWORD):boolean;
begin
  result := false;
  //如果线程标志为0则用于去掉钩子，否则进行动态库注入
  if dwThreadid<>0 then
  begin
    assert(g_hhook=0);
    //保存当前线程的ID到 g_dwThreadidInject
    g_dwThreadidInject := getCurrentThreadid;
    //下一个GetMessage的钩子到目标线程
    //GetMsgProc是在下面定义的一个函数，在第一次调用时将自定义的form在目标线程中创建出来
    //这样就能通过这个自定义的form对目标线程进行进程内控制了
    g_hhook := setWindowsHookEx(wh_getMessage,GetMsgProc,hInstance,dwThreadid);
    result := g_hhook <> null;
    if result then
      //发一个空的信息以便于立即创建这个自定义form
      result := postThreadMessage(dwThreadid, wm_Null,0,0);
    //等待半秒钟，以保证调用者可以找到这个刚创建的form
    sleep(500);
  end else
  begin
    assert(g_hhook<>0);
    //去掉钩子
    result := unHookWindowsHookEx(g_hhook);
    g_Hhook := 0;
  end;
end;
//定义一个全局的是否第一个消息的标志
var
  fFirstTime:boolean = true;
//这个函数用于在收到第一个消息时创建自定义窗体，以便于远程控制
function GetMsgProc(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT; stdcall;
begin
  //如果是第一次
  if fFirstTime then
  begin
    fFirstTime := false;
    //创建窗体
    InjectFrm := TinjectFrm.create(nil);
    //保存窗体句柄
    g_hInjectfrm := InjectFrm.handle;
  end;
  //调用默认处理，这一句可不能忘记
  result := callNexthookEx(g_hhook,code,wparam,lparam);
end;