CS登陆器有Delphi源码

kilng

随意写的一个，基本代码完整，自己还要什么功能自己加吧。
编译环境：WinXp + SP3 + Delphi 7 + FlatStyle 4.42

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7.   Dialogs, FlatBtns, FlatUtils, FlatBoxs, StdCtrls, shellapi, inifiles, FlatCtrls;
   
8. 
   
9. type
   
10.   TForm1 = class(TForm)
    
11.     FlatEdit1: TFlatEdit;
    
12.     FlatEdit2: TFlatEdit;
    
13.     FlatEdit3: TFlatEdit;
    
14.     FlatEdit4: TFlatEdit;
    
15.     FlatButton1: TFlatButton;
    
16.     FlatButton2: TFlatButton;
    
17.     FlatButton3: TFlatButton;
    
18.     FlatEdit5: TFlatEdit;
    
19.     OpenDialog1: TOpenDialog;
    
20.     FlatCheckBox1: TFlatCheckBox;
    
21.     FlatCheckBox2: TFlatCheckBox;
    
22.     FlatCheckBox3: TFlatCheckBox;
    
23.     FlatComboBox1: TFlatComboBox;
    
24.     FlatEdit6: TFlatEdit;
    
25.     Label1: TLabel;
    
26.     FlatRadioButton1: TFlatRadioButton;
    
27.     FlatRadioButton2: TFlatRadioButton;
    
28.     Label2: TLabel;
    
29.     procedure FlatButton1Click(Sender: TObject);
    
30.     procedure FlatButton2Click(Sender: TObject);
    
31.     procedure FlatButton3Click(Sender: TObject);
    
32.     procedure FormCreate(Sender: TObject);
    
33.   private
    
34.     { Private declarations }
    
35.   public
    
36.     { Public declarations }
    
37.   end;
    
38. 
    
39. var
    
40.   Form1: TForm1;
    
41. 
    
42. implementation
    
43. 
    
44. {$R *.dfm}
    
45. 
    
46. procedure TForm1.FlatButton1Click(Sender: TObject);
    
47. begin
    
48.   if opendialog1.Execute then
    
49.   begin
    
50.   FlatEdit4.Text:= opendialog1.FileName;
    
51.   end;
    
52. end;
    
53. 
    
54. procedure TForm1.FlatButton2Click(Sender: TObject);
    
55. var
    
56.   Filedir,cstrike,console,S,tmp,accel,parms,spd,Physics,refresh,version: string;
    
57.   F: TextFile ;
    
58.   myini: Tinifile;
    
59. begin
    
60.   myini:= Tinifile.Create(ExtractFilePath(Paramstr(0))+'config.ini');
    
61.   myini.WriteString('config','cstrike',FlatEdit4.Text);
    
62.   myini.WriteString('config','serverip',FlatEdit5.Text);
    
63.   myini.WriteString('config','amxxpw',FlatEdit1.Text);
    
64.   myini.WriteString('config','user',FlatEdit2.Text);
    
65.   myini.WriteString('config','pass',FlatEdit3.Text);
    
66.   if FlatCheckBox1.checked then myini.WriteString('other','accel','1') else myini.WriteString('other','accel','0');
    
67.   if FlatCheckBox2.checked then myini.WriteString('other','parms','1') else myini.WriteString('other','parms','0');
    
68.   if FlatCheckBox3.checked then myini.WriteString('other','spd','1') else myini.WriteString('other','spd','0');
    
69.   myini.WriteString('other','Physics',FlatComboBox1.Text);
    
70.   myini.WriteString('other','refresh',FlatEdit6.Text);
    
71.   if FlatRadioButton1.Checked then myini.WriteString('other','version','cn') else myini.WriteString('other','version','en');
    
72.   myini.Destroy;
    
73.   console:= '';
    
74.   Filedir:= ExtractFileDir(FlatEdit4.Text);
    
75.   console:= ' -console';
    
76.   if FlatCheckBox1.Checked then console:= console + ' -noforcemaccel';
    
77.   if FlatCheckBox2.Checked then console:= console + ' -noforcemparms';
    
78.   if FlatCheckBox3.Checked then console:= console + ' -noforcemspd';
    
79.   if FlatComboBox1.Text= '32位' then console:= console + ' -32bpp' else console:= console + ' -16bpp';
    
80.   console:= console + ' -freq '+FlatEdit6.Text;
    
81.   console:= console + ' +connect '+FlatEdit5.Text;
    
82.   if FlatRadioButton1.Checked then cstrike:= Filedir + '\cstrike_schinese';
    
83.   if FlatRadioButton2.Checked then cstrike:= Filedir + '\cstrike';
    
84.   if fileExists(cstrike+'\dingo.cfg') then deleteFile(cstrike+'\dingo.cfg');
    
85.   AssignFile(F,cstrike+'\dingo.cfg');
    
86.   rewrite(F);
    
87.   writeln(F,'name "'+FlatEdit2.Text+'"');
    
88.   writeln(F,'setinfo '+FlatEdit1.Text+' '+FlatEdit3.Text);
    
89.   closefile(F);
    
90.   AssignFile(F,cstrike+'\config.cfg');
    
91.   Reset(F);
    
92.   tmp:= '';
    
93.   while not EOF(F)do
    
94.   begin
    
95.     Readln(F,S); // 读取一行文本
    
96.     tmp:= tmp + S;
    
97.   end;
    
98.   closefile(F);
    
99.   if pos('dingo.cfg',tmp)=0 then
    
100.   begin
     
101.     //MessageBox(0,pchar(cstrike),'aaa',mb_okcancel);
     
102.     AssignFile(F,cstrike+'\config.cfg');
     
103.     Append(F);
     
104.     writeln(F,'exec dingo.cfg');
     
105.     closefile(F);
     
106.   end;
     
107.   ShellExecute(Handle, 'open', PChar(FlatEdit4.Text), PChar(console), nil, SW_SHOW);
     
108. end;
     
109. 
     
110. procedure TForm1.FlatButton3Click(Sender: TObject);
     
111. begin
     
112.   close;
     
113. end;
     
114. 
     
115. procedure TForm1.FormCreate(Sender: TObject);
     
116. var
     
117.   myini: Tinifile;
     
118.   accel,parms,spd,Physics,refresh,version: string;
     
119. begin
     
120.   myini:= Tinifile.Create(ExtractFilePath(Paramstr(0))+'config.ini');
     
121.   FlatEdit4.Text:= myini.ReadString('config','cstrike','');
     
122.   FlatEdit5.Text:= myini.ReadString('config','serverip','121.101.211.61:27015');
     
123.   FlatEdit1.Text:= myini.ReadString('config','amxxpw','');
     
124.   FlatEdit2.Text:= myini.ReadString('config','user','');
     
125.   FlatEdit3.Text:= myini.ReadString('config','pass','');
     
126.   accel:= myini.ReadString('other','accel','1');
     
127.   parms:= myini.ReadString('other','parms','1');
     
128.   spd:= myini.ReadString('other','spd','0');
     
129.   Physics:= myini.ReadString('other','Physics','');
     
130.   refresh:= myini.ReadString('other','refresh','75');
     
131.   version:= myini.ReadString('other','version','');
     
132.   myini.Destroy;
     
133.   if pos('1',accel)>0 then FlatCheckBox1.checked:= true else FlatCheckBox1.checked:= false;
     
134.   if pos('1',parms)>0 then FlatCheckBox2.checked:= true else FlatCheckBox2.checked:= false;
     
135.   if pos('1',spd)>0 then FlatCheckBox3.checked:= true else FlatCheckBox3.checked:= false;
     
136.   FlatComboBox1.Text:= Physics;
     
137.   FlatEdit6.Text:= refresh;
     
138.   if pos('cn',version)>0 then FlatRadioButton1.Checked:= true else FlatRadioButton2.Checked:= true;
     
139.   //MessageBox(0,pchar(version),'aaa',mb_okcancel);
     
140. end;
     
141. 
     
142. procedure saveini(co,key,value:string);
     
143. var
     
144.   myini: Tinifile;
     
145. begin
     
146.   myini:= Tinifile.Create(ExtractFilePath(Paramstr(0))+'config.ini');
     
147.   myini.writestring(co,key,value);
     
148.   myini.Destroy;
     
149. end;
     
150. 
     
151. end.

复制代码

INSUN

不下也顶一下。

d4server

当然要顶顶

ande598

不下也顶一下。

小白

楼主奉献精神可佳,不知道支持HL2协议不?

kilng

5# 小白

跟协议没关系，运行方式是程序加参数改config，

d4server

可不可以改下支持多服务器？

linoff

我的天，被扣了两次钱。

starbaby

楼主我来下载。。。给你加点人气。。鼓励奉献。。。
虽然俺暂时不需要这东西

qilei518

强烈支持！