|
传奇3G登录器封包注册+配置器源代码
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit_Loginfile: TEdit;
Edit_Manger: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
SaveDialog1: TSaveDialog;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure MakeFile(LoginFile,MangerFile,NewFile:String);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then Edit_Loginfile.Text:=OpenDialog1.FileName;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then Edit_Manger.Text:=OpenDialog1.FileName;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
LoginFileName,MangerFileName:String;
NewFileName:String;
begin
LoginFileName:=Edit_Loginfile.Text;
MangerFileName:=Edit_Manger.Text;
if not FileExists(LoginFileName) then
begin
ShowMessage('Login.exe不存在');
Edit_Loginfile.SetFocus;
exit;
end;
if not FileExists(MangerFileName) then
begin
ShowMessage('Manger.exe不存在');
Edit_Manger.SetFocus;
exit;
end;
if SaveDialog1.Execute then NewFileName:=SaveDialog1.FileName;
MakeFile(LoginFileName,MangerFileName,NewFileName);
end;
procedure TForm1.MakeFile(LoginFile,MangerFile,NewFile:String);
var
L,M,N:TMemoryStream;
NewSize:integer;
begin
l:=TMemoryStream.Create;
M:=TMemoryStream.Create;
N:=TMemoryStream.Create;
l.LoadFromFile(LoginFile);
M.LoadFromFile(MangerFile);
NewSize:=m.Size+l.Size;
N.SetSize(NewSize);
N.Position:=0;
N.CopyFrom(m,m.Size);
N.Seek(m.Size,soFromBeginning);
N.CopyFrom(l,L.Size);
N.SaveToFile(NewFile);
ShowMessage('生成完毕!');
end;
end.
|
|