rxjh.dll 在这个DLL 里就只有一个函数 InstallHook 函数  我测试了一下好像是没有参数
估计这个函数是以HOOK 改变热血江湖客户端 用参数连接进来的参数
登陆器制作方法估计就是  先把这个DLL 注入到 热血江湖进程中 然后 在调用这个函数。。。

2、用一个timer    interval 设为 1000
procedure TForm1.tmr1Timer(Sender: TObject);
var
  HD:THandle;
  mydll: procedure();stdcall;
begin
  try
    if FindWindow(nil,＇YB_OnlineClient＇)<>0 then
      begin 
        HD:=LoadLibrary(PChar(Extractfilepath(application.ExeName)+＇rxjh.dll＇));
        if HD<>0 then
          begin
            mydll:=Getprocaddress(HD,＇InstallHook＇);
            mydll();
            Freelibrary(HD);
          end;
        tmr1.Enabled:=False;
      end;
  except
  end;
end;