用DELPHI 2005写了个登陆器，几年没用DELPHI了，差点忘光了，连文本文件读写的语句都忘记了，昏。
其实登陆器也很好写啊，就是往文件里写上设置IP地址或者网址的语句，然后调用运行软件，自己退出就完事了。
主要代码：
uses Shellapi;
procedure TForm1.Button1Click(Sender: TObject);//下载客户端
begin
ShellExecute(handle,'open',pchar('http://www.xxx.com'),nil,nil,sw_shownormal);//换成客户端下载地址
end;
procedure TForm1.Button2Click(Sender: TObject);//注册网站
begin
ShellExecute(handle,'open',pchar('http://11.11.11.11'),nil,nil,sw_shownormal);//换成你的服务器IP或者网址
end;
procedure TForm1.Button3Click(Sender: TObject);
var
aimtext :TextFile;
begin
AssignFile(aimtext,'realmlist.wtf');
ReWrite(aimtext);
write(aimtext,'set realmlist "11.11.11.11"');//换成你的服务器IP或者网址
CloseFile(aimtext);
winexec('play.exe',SW_SHOW);//换成软件文件名
close;
end;
编译好后要把登陆器放到软件文件夹中才可顺利调用 | 
站点公告
