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;
以上就是一为原创分享给大家的热血江湖登录器制作方法以及DELPH1源代码相关攻略全部内容,其实只要掌握了其中的一些关键我们会发现写起来也没有我们想象中的那么困难。特别是对于一些稍稍懂点技术的gm来说其难度可以说是很小很小的,毕竟上面攻略中已经介绍得非常非常清晰了。