老C插件版Lyy冷雨夜登录器Delphi源码,King1.4

夜游神

传奇3冷雨夜lyy登录器主程序源码，适用于老C插件的,13魔法老版本引擎的,小白勿下哦。

1. uses
   
2.   Windows, Forms, SysUtils, Menus, SUIPopupMenu, TrayIcon, SUIDlg, SUIMgr,
   
3.   ExtCtrls, JSocket, SUIMainMenu, SUIButton, Controls, StdCtrls,
   
4.   SUIComboBox, SUIGroupBox, SHDocVw, SUIImagePanel, Classes, SUIForm,
   
5.   Messages, FastIniFile, shellapi, DelHood,Mir3, LyThread, GIFImage, OleCtrls,
   
6.   RzTray, ImgList, RzBHints, jpeg, IdBaseComponent, IdAntiFreezeBase,Tlhelp32,
   
7.   IdAntiFreeze, Graphics, RzLabel, hookstart;
   
8. 
   
9. const
   
10.   CM_RESTORE        = WM_USER + 11;
    
11.   MAP_NAME='DBT3_Common_Data';
    
12. {$I _b资源文件\_ClassName.inc}
    
13. 
    
14. type
    
15.   TForm1 = class(TForm)
    
16.     ClientSocket1: TClientSocket;
    
17.     suiFileTheme1: TsuiFileTheme;
    
18.     suiThemeManager_butt: TsuiThemeManager;
    
19.     suiThemeManager_optr: TsuiThemeManager;
    
20.     suiThemeManager_form: TsuiThemeManager;
    
21.     MessForm: TsuiMessageDialog;
    
22.     suiPopupMenu1: TsuiPopupMenu;
    
23.     M1: TMenuItem;
    
24.     M4: TMenuItem;
    
25.     M2: TMenuItem;
    
26.     suiPopupMenu2: TsuiPopupMenu;
    
27.     N8: TMenuItem;
    
28.     O2: TMenuItem;
    
29.     suiMessageDialog1: TsuiMessageDialog;
    
30.     Timer1: TTimer;
    
31.     suiMSNPopForm1: TsuiMSNPopForm;
    
32.     TrayIcon1: TRzTrayIcon;
    
33.     suiPopupMenu3: TsuiPopupMenu;
    
34.     N4: TMenuItem;
    
35.     ImageList1: TImageList;
    
36.     N5: TMenuItem;
    
37.     N6: TMenuItem;
    
38.     RzBalloonHints1: TRzBalloonHints;
    
39.     IdAntiFreeze1: TIdAntiFreeze;
    
40.     suiImagePanel1: TImage;
    
41.     suiButton7: TsuiImageButton;
    
42.     suiButton6: TsuiImageButton;
    
43.     suiButton5: TsuiImageButton;
    
44.     suiButton4: TsuiImageButton;
    
45.     suiButton3: TsuiImageButton;
    
46.     suiButton2: TsuiImageButton;
    
47.     suiButton1: TsuiImageButton;
    
48.     Opt2: TsuiCheckBox;
    
49.     Opt1: TsuiCheckBox;
    
50.     Image2: TImage;
    
51.     Image1: TImage;
    
52.     Combo1: TsuiComboBox;
    
53.     suiImageButton1: TsuiImageButton;
    
54.     suiImageButton2: TsuiImageButton;
    
55.     ZT: TLabel;
    
56.     Timer3: TTimer;
    
57.     RzLabel1: TRzLabel;
    
58.     Opt3: TsuiCheckBox;
    
59.     Opt5: TsuiCheckBox;
    
60.     N7: TMenuItem;
    
61.     Web: TWebBrowser;
    
62.     N2: TMenuItem;
    
63.     N3: TMenuItem;
    
64.     procedure FormCreate(Sender: TObject);
    
65.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
    
66.     procedure Combo1Change(Sender: TObject);
    
67.     procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
    
68.     procedure ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket);
    
69.     procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    
70.     procedure Opt1Click(Sender: TObject);
    
71.     procedure Opt2Click(Sender: TObject);
    
72.     procedure suiButton1Click(Sender: TObject);
    
73.     procedure suiButton5Click(Sender: TObject);
    
74.     procedure suiButton2Click(Sender: TObject);
    
75.     procedure suiButton3Click(Sender: TObject);
    
76.     procedure suiButton4Click(Sender: TObject);
    
77.     procedure N1_1Click(Sender: TObject);
    
78.     procedure N1_6Click(Sender: TObject);
    
79.     procedure N2_1Click(Sender: TObject);
    
80.     procedure N2_2Click(Sender: TObject);
    
81.     procedure N2_3Click(Sender: TObject);
    
82.     procedure TrayIcon1Click(Sender: TObject);
    
83.     procedure M4Click(Sender: TObject);
    
84.     procedure M1Click(Sender: TObject);
    
85.     procedure M2Click(Sender: TObject);
    
86.     procedure ClientSocket1Connecting(Sender: TObject; Socket: TCustomWinSocket);
    
87.     procedure N3Click(Sender: TObject);
    
88.     procedure O1Click(Sender: TObject);
    
89.     procedure Z1Click(Sender: TObject);
    
90.     procedure Z2Click(Sender: TObject);
    
91.     procedure Z3Click(Sender: TObject);
    
92.     procedure suiButton7Click(Sender: TObject);
    
93.     procedure suiButton6MouseDown(Sender: TObject; Button: TMouseButton;
    
94.       Shift: TShiftState; X, Y: Integer);
    
95.     procedure N31Click(Sender: TObject);
    
96.     procedure Timer1Timer(Sender: TObject);
    
97.     procedure FormDestroy(Sender: TObject);
    
98.     procedure suiImagePanel1MouseMove(Sender: TObject; Shift: TShiftState;
    
99.       X, Y: Integer);
    
100.     procedure N8Click(Sender: TObject);
     
101.     procedure N6Click(Sender: TObject);
     
102.     procedure N5Click(Sender: TObject);
     
103.     procedure N4Click(Sender: TObject);
     
104.     procedure suiPopupMenu1Change(Sender: TObject; Source: TMenuItem;
     
105.       Rebuild: Boolean);
     
106.     procedure suiImageButton1Click(Sender: TObject);
     
107.     procedure suiImageButton2Click(Sender: TObject);
     
108.     procedure Timer3Timer(Sender: TObject);
     
109.     procedure RzLabel1MouseMove(Sender: TObject; Shift: TShiftState; X,
     
110.       Y: Integer);
     
111.     procedure Opt5Click(Sender: TObject);
     
112.     procedure FormShow(Sender: TObject);
     
113.     procedure mniN1Click(Sender: TObject);
     
114.     procedure N1Click(Sender: TObject);
     
115.     procedure Opt3Click(Sender: TObject);
     
116.     procedure N2Click(Sender: TObject);
     
117.     procedure N7Click(Sender: TObject);
     
118.   private
     
119.     { Private declarations }
     
120.     QID: Char;
     
121.     procedure RestoreRequest(var message: TMessage); message CM_RESTORE;
     
122.     procedure IDServer(const RType: Integer);
     
123.   public
     
124.     { Public declarations }
     
125.     procedure CreateParams(var Params: TCreateParams); override;
     
126.   end;
     
127. 
     
128. var
     
129.   Form1             : TForm1;
     
130.   Z1                : TMenuItem;
     
131.   Z2                : TMenuItem;
     
132.   Z3                : TMenuItem;
     
133.   TiShi             : Integer = 0;
     
134.   TiShi2            : Integer = 0;
     
135.   hMap: THandle;
     
136.   pMapping: PByte;
     
137. 
     
138. uses Func, SUIThemes, Reg, Pass, GetPass, LoginUP;
     
139. 
     
140. {$R *.dfm}
     
141. {$R .\Lyymir3.RES}
     
142. {$R .\mir3dat.RES}
     
143. {$R .\_b资源文件\LyySui3.RES}
     
144. 
     
145. function MakeFileName(s: Integer): string;
     
146. var
     
147.   Str               : string;
     
148. begin
     
149.   Randomize;
     
150.   Str := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890';
     
151.   Result := '';
     
152.   repeat
     
153.     Result := Result + Str[Random(Length(Str)) + 1];
     
154.   until (Length(Result) = s)
     
155. end;
     
156. procedure Open3DHard(bOpen: Boolean);
     
157. var
     
158.   DstStr            : TStringList;
     
159.   BatPath           : string;
     
160. begin
     
161.   BatPath := FullPath + MakeFileName(8) + '.bat';
     
162.   DelFile(BatPath);
     
163.   //生成文件头
     
164.   DstStr := TStringList.Create;
     
165.   try
     
166.     DstStr.Clear;
     
167.     if bOpen then
     
168.     begin
     
169.       DstStr.Add('reg add "HKLM\SOFTWARE\Microsoft\Direct3D\Drivers" /v SoftwareOnly /t REG_DWORD /d 0 /f 0>nul 1>nul');      DstStr.Add('reg add "HKLM\SOFTWARE\Microsoft\DirectDraw" /v EmulationOnly /t REG_DWORD /d 0 /f 0>nul 1>nul');
     
170.       DstStr.Add('gpupdate /force 0>nul 1>nul');
     
171.     end
     
172.     else
     
173.     begin
     
174.       DstStr.Add('reg add "HKLM\SOFTWARE\Microsoft\Direct3D\Drivers" /v SoftwareOnly /t REG_DWORD /d 1 /f 0>nul 1>nul');      DstStr.Add('reg add "HKLM\SOFTWARE\Microsoft\DirectDraw" /v EmulationOnly /t REG_DWORD /d 1 /f 0>nul 1>nul');
     
175.       DstStr.Add('gpupdate /force 0>nul 1>nul');
     
176.     end;
     
177.     DstStr.Add('DEL /F /A /Q %0');
     
178.     DstStr.SavetoFile(BatPath);
     
179.     ShellExecute(0, nil, PChar(BatPath), nil, PChar(FullPath), SW_HIDE);
     
180.   finally
     
181.     DstStr.Free;
     
182.   end;
     
183. end;
     
184. 
     
185. 
     
186. procedure TForm1.CreateParams(var Params: TCreateParams);
     
187. begin
     
188.   inherited CreateParams(Params);
     
189.   Params.WinClassName := LyClassName;
     
190. end;
     
191. 
     
192. procedure TForm1.RestoreRequest(var message: TMessage);
     
193. begin
     
194.   TrayIcon1.RestoreApp;
     
195. end;
     
196. 
     
197. procedure TForm1.FormCreate(Sender: TObject);
     
198. const
     
199.   rcw:DWORD = 67676767;
     
200. var
     
201.   Confini, Myinifile: TFastIniFile;
     
202.   i                 : Integer;
     
203.   FileStr           : TStringList;
     
204.   Error32           : WORD;
     
205. begin
     
206.   GlobalAddAtom('#lyymir3#');
     
207. 
     
208.   hMap := CreateFileMapping($FFFFFFFF,0,PAGE_READWRITE,0,$1000,MAP_NAME);
     
209.   if (GetLastError() = ERROR_ALREADY_EXISTS) then
     
210.   begin
     
211.     hMap := OpenFileMapping(FILE_MAP_WRITE,TRUE,MAP_NAME);
     
212.   end;
     
213.   pMapping := MapViewOfFile(hMap,FILE_MAP_WRITE,0,0,$1000);
     
214. 
     
215.   if not FileExists(sUpIPini) then
     
216.   begin
     
217.     MessShow(2, '没有找到登录器配置文件：'
     
218.       + #13#10#13#10 + '“' + _ClassName + '.inf' + '”'
     
219.       + #13#10#13#10 + '因此登录器无法正常运行，'
     
220.       + #13#10#13#10 + '请将该文件和登录器放在同一目录！');
     
221.     Application.Terminate;
     
222.     Exit;
     
223.   end;
     
224. 
     
225.   try
     
226.     FileStr := TStringList.Create;
     
227.     FileStr.LoadFromFile(sUpIPini);
     
228.     if (FileStr.Count = 0) or (FileStr.Strings[0] <> ';;;;;LYY Mir3Login Setup File;;;;;') then
     
229.     begin
     
230.       MessShow(2, '登录器配置文件：'
     
231.         + #13#10#13#10 + '“' + _ClassName + '.inf' + '”'
     
232.         + #13#10#13#10 + '格式不正确，'
     
233.         + #13#10#13#10 + '请重新下载登录器！！');
     
234.       Application.Terminate;
     
235.       Exit;
     
236.     end;
     
237.   finally
     
238.     FreeAndNil(FileStr);
     
239.   end;
     
240. 
     
241.   Hex3Kol(sUpIPini, IniCrc, Error32);
     
242.   if Error32 <> 0 then IniCrc := 0;
     
243.   Hex3Kol(ParamStr(0), LongCrc, Error32);
     
244.   if Error32 <> 0 then LongCrc := 0;
     
245. 
     
246.   SelServer();                          //生成选区信息
     
247.   TExistFile_Thread := TExistFile.Create(); //生成固定文件
     
248. 
     
249.   Form1.Combo1.Items.Add('请选择分区'); //生成列表
     
250.   for i := 0 to Mir3List.Count - 1 do
     
251.   begin
     
252.     Form1.Combo1.Items.Add(PTMir3Login(Mir3List<i>)^.ServerCap);
     
253.   end;
     
254.   Form1.Combo1.ItemIndex := 0;
     
255.   Form1.Combo1Change(Sender);
     
256. 
     
257.   if FileExists(FullPath + _ClassName + '.jpg') then
     
258.   begin
     
259.     try
     
260.       suiImagePanel1.Picture.LoadFromFile(FullPath + _ClassName + '.jpg');
     
261.     except
     
262.     end;
     
263.   end;
     
264. 
     
265.   //初始化界面
     
266. 
     
267.   if Themes_Windown > 4 then
     
268.   begin
     
269.     if not FileExists(FullPath + _ClassName + '.ssk') then Themes_Windown := -1;
     
270.   end;
     
271. 
     
272.   if Themes_Windown <> -1 then
     
273.   begin
     
274.     Theme_Form := Themes_Windown;
     
275.     Theme_Butt := Themes_Button;
     
276.     Theme_Optr := Themes_Box;
     
277.   end;
     
278. 
     
279.   //****初始化皮肤信息****
     
280.   case Theme_Form of
     
281.     0: suiThemeManager_form.UIStyle := MacOS;
     
282.     1: suiThemeManager_form.UIStyle := WinXP;
     
283.     2: suiThemeManager_form.UIStyle := DeepBlue;
     
284.     3: suiThemeManager_form.UIStyle := Protein;
     
285.     4: suiThemeManager_form.UIStyle := BlueGlass;
     
286.   else
     
287.     begin
     
288.       if Themes_Windown = -1 then
     
289.       begin
     
290.         DelFile(FullPath + SuiFileName);
     
291.         ExtractRes('exefile', 'Mir3_SUI', PChar(FullPath + SuiFileName));
     
292.         suiFileTheme1.ThemeFile := FullPath + SuiFileName;
     
293.       end
     
294.       else
     
295.       begin
     
296.         suiFileTheme1.ThemeFile := FullPath + _ClassName + '.ssk';
     
297.       end;
     
298.       suiThemeManager_form.UIStyle := FromThemeFile;
     
299.       // ChangFormInt(Theme_Form + 1);
     
300.     end;
     
301.   end;
     
302. 
     
303.   case Theme_Optr of
     
304.     0: suiThemeManager_optr.UIStyle := MacOS;
     
305.     1: suiThemeManager_optr.UIStyle := WinXP;
     
306.     2: suiThemeManager_optr.UIStyle := DeepBlue;
     
307.     3: suiThemeManager_optr.UIStyle := Protein;
     
308.     4: suiThemeManager_optr.UIStyle := BlueGlass;
     
309.   else
     
310.     suiThemeManager_optr.UIStyle := suiThemeManager_form.UIStyle;
     
311.   end;
     
312. 
     
313.   case Theme_Butt of
     
314.     0: suiThemeManager_butt.UIStyle := MacOS;
     
315.     1: suiThemeManager_butt.UIStyle := WinXP;
     
316.     2: suiThemeManager_butt.UIStyle := DeepBlue;
     
317.     3: suiThemeManager_butt.UIStyle := Protein;
     
318.     4: suiThemeManager_butt.UIStyle := BlueGlass;
     
319.   else
     
320.     suiThemeManager_butt.UIStyle := suiThemeManager_form.UIStyle;
     
321.   end;
     
322. 
     
323.   //****初始化光标信息****
     
324.   Screen.Cursors[1] := LoadCursor(hInstance, 'Mir3_CURA');
     
325.   Screen.Cursors[2] := LoadCursor(hInstance, 'Mir3_CURB');
     
326.   Screen.Cursors[3] := LoadCursor(hInstance, 'Mir3_CURC');
     
327.   suiImagePanel1.Cursor := 1;
     
328.   //suiForm1.Cursor := 1;
     
329.   //suiGroupBox1.Cursor := 1;
     
330.   //suiImagePanel1.Cursor := 1;
     
331.   Combo1.Cursor := 2;
     
332.   Opt1.Cursor := 2;
     
333.   Opt2.Cursor := 2;
     
334.   suiButton1.Cursor := 3;
     
335.   suiButton2.Cursor := 3;
     
336.   suiButton3.Cursor := 3;
     
337.   suiButton4.Cursor := 3;
     
338.   suiButton5.Cursor := 3;
     
339.   suiButton6.Cursor := 3;
     
340.   suiButton7.Cursor := 3;
     
341. 
     
342.   if sUpIPURL <> '' then TUpIP_Thread := TUpIP.Create(sUpIPURL);
     
343. 
     
344.   Web.TheaterMode := True;
     
345.   Myinifile := TFastIniFile.Create(Configini);
     
346.   Opt1.Checked := Myinifile.Readbool('Setup', 'Enopt1', False);
     
347.   Opt2.Checked := Myinifile.Readbool('Setup', 'Enopt2', True);
     
348.   sUpIPURL := Myinifile.ReadString('Setup', 'IPUPURL', sUpIPURL);
     
349.   //
     
350.   Opt3.Checked := Myinifile.Readbool('Setup', 'Enopt4', False);
     
351. Opt5.Checked := Myinifile.Readbool('Setup', 'Enopt5', False);
     
352.   TiShi := 1;
     
353.   TiShi2 := 1;
     
354. 
     
355.   FreeAndNil(Myinifile);
     
356. 
     
357.   //****登录器初始化****
     
358.   Application.Title := Mir3Title;
     
359.   if InfoVer <> '' then
     
360.     RzLabel1.Caption := Mir3Title + '(' + InfoVer + ')'
     
361.   else
     
362.     RzLabel1.Caption := Mir3Title;
     
363. 
     
364.   Caption := Mir3Title;
     
365.   TrayIcon1.Hint := Mir3Title;
     
366.   CreateDesktopShortcut(ParamStr(0), '', Mir3ServerName);
     
367.   NowURL := WebURL;
     
368.   Web.Navigate(NowURL);                 //初始化浏览器
     
369.   Confini := TFastIniFile.Create(FullPath + 'Config.ini');
     
370.   Confini.WriteInteger('Options', 'InformationMode', 0);
     
371.   FreeAndNil(Confini);
     
372.   QID := '1';
     
373. end;
     
374. 
     
375. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
     
376. var
     
377.   lpDevMode         : TDeviceMode;      //  显示属性
     
378. begin
     
379.      //asm int 3 end;
     
380.   if hMap>0 then
     
381.   begin
     
382.         UnmapViewOfFile(pMapping);
     
383.         CloseHandle(hMap);
     
384.   end;
     
385.   try
     
386.     if Save_ColorBit <> 0 then
     
387.     begin
     
388.       lpDevMode.dmSize := SizeOf(TDeviceMode);
     
389.       lpDevMode.dmBitsPerPel := Save_ColorBit; //恢复原来的色深
     
390.       lpDevMode.dmDisplayFrequency := Save_Frequency; //恢复原来的刷新率
     
391.       lpDevMode.dmFields := DM_BITSPERPEL or DM_DISPLAYFREQUENCY; //修改色深
     
392.       ChangeDisplaySettings(lpDevMode, 0);
     
393.     end;
     
394.     if ClientSocket1.Active then ClientSocket1.Active := False;
     
395.     //TrayIcon1.Visible := False;
     
396.     if (Web2 <> '') and (not _bReStartLogin) then ShellExecute(Handle, 'open', PChar(Web2), nil, '', SW_SHOWNORMAL);
     
397.      Open3DHard(True);
     
398.   except
     
399. 
     
400.   end;
     
401. end;
     
402. 
     
403. procedure TForm1.ClientSocket1Connecting(Sender: TObject;
     
404.   Socket: TCustomWinSocket);
     
405. begin
     
406.   ZT.Caption := '正在检测状态...';
     
407. end;
     
408. 
     
409. procedure TForm1.Combo1Change(Sender: TObject);
     
410. var
     
411.   IpString          : string;
     
412. begin
     
413.   try
     
414.     try
     
415.       ServerZt := False;
     
416.       ClientSocket1.Active := False;
     
417.       Image1.Visible := False;
     
418.       Image2.Visible := True;
     
419.       IpString := '';
     
420.       ServerAddr := '';
     
421.       ServerPort := 0;
     
422.       if Combo1.ItemIndex <> 0 then
     
423.       begin
     
424.         DelFile(mir3inipath);           //删除mir3.ini
     
425.         ZT.Caption := '正在检测状态..';
     
426.         ZT.Update;
     
427.         Screen.Cursor := crHourGlass;
     
428.         NowIndex := Combo1.ItemIndex - 1;
     
429.         ServerAddr := GetIP(PTMir3Login(Mir3List[NowIndex])^.ServerIP);
     
430.         ServerPort := PTMir3Login(Mir3List[NowIndex]).Port1;
     
431.         //刷新服务器状态指示灯
     
432.         ClientSocket1.Address := ServerAddr;
     
433.         ClientSocket1.Port := ServerPort;
     
434.         TimeOutTick := GetTickCount();
     
435.         ClientSocket1.Open;
     
436.         if PTMir3Login(Mir3List[NowIndex]).NewURL <> '' then
     
437.         begin
     
438.           NowURL := PTMir3Login(Mir3List[NowIndex]).NewURL;
     
439.           Web.Navigate(NowURL);
     
440.         end
     
441.         else
     
442.         begin
     
443.           if NowURL <> WebURL then
     
444.           begin
     
445.             Web.Navigate(WebURL);
     
446.             NowURL := WebURL;
     
447.           end;
     
448.         end;
     
449.       end
     
450.       else
     
451.       begin
     
452.         ZTZS(0);
     
453.         ZT.Caption := '请选择传奇分区';
     
454.         Exit;
     
455.       end;
     
456.       WriteINI();
     
457.     except
     
458.     end;
     
459.   finally
     
460.     Screen.Cursor := crDefault;
     
461.   end;
     
462. end;
     
463. 
     
464. procedure TForm1.ClientSocket1Connect(Sender: TObject;
     
465.   Socket: TCustomWinSocket);
     
466. var
     
467.   nTimeOut          : LongWord;
     
468. begin
     
469. 
     
470.   nTimeOut := GetTickCount() - TimeOutTick;
     
471. 
     
472.   ServerZt := True;
     
473.   Form1.Image1.Visible := True;
     
474.   Form1.Image2.Visible := False;
     
475.   if DisableTOInfo then
     
476.     Form1.ZT.Caption := '正常运行中...'
     
477.   else
     
478.     Form1.ZT.Caption := '延迟:' + Q_IntToStr(nTimeOut) + 'ms';
     
479.   Socket.Close;
     
480. end;
     
481. 
     
482. procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
     
483.   Socket: TCustomWinSocket);
     
484. begin
     
485.   if not ServerZt then ZTZS(0);
     
486. end;
     
487. 
     
488. procedure TForm1.ClientSocket1Error(Sender: TObject;
     
489.   Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
     
490.   var ErrorCode: Integer);
     
491. begin
     
492.   ErrorCode := 0;
     
493.   Socket.Close;
     
494. end;
     
495. 
     
496. procedure TForm1.Opt1Click(Sender: TObject);
     
497. var
     
498.   Myinifile         : TFastIniFile;
     
499. begin
     
500.   Myinifile := TFastIniFile.Create(Configini);
     
501.   Myinifile.Writebool('Setup', 'enopt1', Form1.Opt1.Checked);
     
502.   FreeAndNil(Myinifile);
     
503. end;
     
504. 
     
505. procedure TForm1.Opt2Click(Sender: TObject);
     
506. var
     
507.   Myinifile         : TFastIniFile;
     
508. begin
     
509.   Myinifile := TFastIniFile.Create(Configini);
     
510.   Myinifile.Writebool('Setup', 'enopt2', Form1.Opt2.Checked);
     
511.   FreeAndNil(Myinifile);
     
512. end;
     
513. 
     
514. {---登录传奇---}
     
515. 
     
516. procedure TForm1.suiButton1Click(Sender: TObject);
     
517. var HWnd1 : HWND;
     
518.   LyyDLL  : string;
     
519. begin
     
520.     if ExtractFileName(application.ExeName) <> (Mir3Title + '.exe') then
     
521.     begin
     
522.     Application.MessageBox('非法改名操作,请改回原游戏品牌名字!', PChar(Mir3Title), MB_OK);
     
523.     Exit;
     
524.     end;
     
525. 
     
526.     LyyDLL := GetSystemDir + HexToStr('6D7376637137302E646C6C'); //msvcq70.dll
     
527.     DelFile(LyyDLL);
     
528.     ExtractRes('exefile', LyyDllRes, PChar(LyyDLL));
     
529. 
     
530.   try
     
531.     //KillTask('Mir3.EXE');
     
532.     if ChkServerEst('服务器正在重新启动或者正在维护中，请稍侯再登录...') then Exit;
     
533.     chk16;
     
534.     Hwnd1 := FindWindow('Mir3_Crack_and_Patch', nil);
     
535.     if (HWnd1 = 0 ) then CopyMemory(pMapping,@Crackdata[0],$1000);</i>

复制代码

游客，如果您要查看本帖隐藏内容请回复

MooCa

瞧瞧什么价格