loginunit.pas

传奇3.0私服登录器源码

  AFtpFile.WriteString ('Setup','program',EProgram.Text);
  AFtpFile.EraseSection('Server');
  AFtpFile.WriteString('Server','ServerCount',Ecount.Text);
  case StrToInt(Ecount.Text) of
    1:begin
      AFtpFile.WriteString ('Server','server1caption',ec1.Text);
      AFtpFile.WriteString ('Server','server1name',en1.Text);
      end;
    2:begin
      AFtpFile.WriteString ('Server','server1caption',ec1.Text);
      AFtpFile.WriteString ('Server','server1name',en1.Text);
      AFtpFile.WriteString ('Server','server2caption',ec2.Text);
      AFtpFile.WriteString ('Server','server2name',en2.Text);
      end;
    3:begin
      AFtpFile.WriteString ('Server','server1caption',ec1.Text);
      AFtpFile.WriteString ('Server','server1name',en1.Text);
      AFtpFile.WriteString ('Server','server2caption',ec2.Text);
      AFtpFile.WriteString ('Server','server2name',en2.Text);
      AFtpFile.WriteString ('Server','server3caption',ec3.Text);
      AFtpFile.WriteString ('Server','server3name',en3.Text);
      end;
    4:begin
      AFtpFile.WriteString ('Server','server1caption',ec1.Text);
      AFtpFile.WriteString ('Server','server1name',en1.Text);
      AFtpFile.WriteString ('Server','server2caption',ec2.Text);
      AFtpFile.WriteString ('Server','server2name',en2.Text);
      AFtpFile.WriteString ('Server','server3caption',ec3.Text);
      AFtpFile.WriteString ('Server','server3name',en3.Text);
      AFtpFile.WriteString ('Server','server4caption',ec4.Text);
      AFtpFile.WriteString ('Server','server4name',en4.Text);
      end;
    5:begin
      AFtpFile.WriteString ('Server','server1caption',ec1.Text);
      AFtpFile.WriteString ('Server','server1name',en1.Text);
      AFtpFile.WriteString ('Server','server2caption',ec2.Text);
      AFtpFile.WriteString ('Server','server2name',en2.Text);
      AFtpFile.WriteString ('Server','server3caption',ec3.Text);
      AFtpFile.WriteString ('Server','server3name',en3.Text);
      AFtpFile.WriteString ('Server','server4caption',ec4.Text);
      AFtpFile.WriteString ('Server','server4name',en4.Text);
      AFtpFile.WriteString ('Server','server5caption',ec5.Text);
      AFtpFile.WriteString ('Server','server5name',en5.Text);
      end;
    6:begin
      AFtpFile.WriteString ('Server','server1caption',ec1.Text);
      AFtpFile.WriteString ('Server','server1name',en1.Text);
      AFtpFile.WriteString ('Server','server2caption',ec2.Text);
      AFtpFile.WriteString ('Server','server2name',en2.Text);
      AFtpFile.WriteString ('Server','server3caption',ec3.Text);
      AFtpFile.WriteString ('Server','server3name',en3.Text);
      AFtpFile.WriteString ('Server','server4caption',ec4.Text);
      AFtpFile.WriteString ('Server','server4name',en4.Text);
      AFtpFile.WriteString ('Server','server5caption',ec5.Text);
      AFtpFile.WriteString ('Server','server5name',en5.Text);
      AFtpFile.WriteString ('Server','server6caption',ec6.Text);
      AFtpFile.WriteString ('Server','server6name',en6.Text);
      end;
    7:begin
      AFtpFile.WriteString ('Server','server1caption',ec1.Text);
      AFtpFile.WriteString ('Server','server1name',en1.Text);
      AFtpFile.WriteString ('Server','server2caption',ec2.Text);
      AFtpFile.WriteString ('Server','server2name',en2.Text);
      AFtpFile.WriteString ('Server','server3caption',ec3.Text);
      AFtpFile.WriteString ('Server','server3name',en3.Text);
      AFtpFile.WriteString ('Server','server4caption',ec4.Text);
      AFtpFile.WriteString ('Server','server4name',en4.Text);
      AFtpFile.WriteString ('Server','server5caption',ec5.Text);
      AFtpFile.WriteString ('Server','server5name',en5.Text);
      AFtpFile.WriteString ('Server','server6caption',ec6.Text);
      AFtpFile.WriteString ('Server','server6name',en6.Text);
      AFtpFile.WriteString ('Server','server7caption',ec7.Text);
      AFtpFile.WriteString ('Server','server7name',en7.Text);
      end;
    8:begin
      AFtpFile.WriteString ('Server','server1caption',ec1.Text);
      AFtpFile.WriteString ('Server','server1name',en1.Text);
      AFtpFile.WriteString ('Server','server2caption',ec2.Text);
      AFtpFile.WriteString ('Server','server2name',en2.Text);
      AFtpFile.WriteString ('Server','server3caption',ec3.Text);
      AFtpFile.WriteString ('Server','server3name',en3.Text);
      AFtpFile.WriteString ('Server','server4caption',ec4.Text);
      AFtpFile.WriteString ('Server','server4name',en4.Text);
      AFtpFile.WriteString ('Server','server5caption',ec5.Text);
      AFtpFile.WriteString ('Server','server5name',en5.Text);
      AFtpFile.WriteString ('Server','server6caption',ec6.Text);
      AFtpFile.WriteString ('Server','server6name',en6.Text);
      AFtpFile.WriteString ('Server','server7caption',ec7.Text);
      AFtpFile.WriteString ('Server','server7name',en7.Text);
      AFtpFile.WriteString ('Server','server8caption',ec8.Text);
      AFtpFile.WriteString ('Server','server8name',en8.Text);
      end;
    end;
  {-------向 mir.ini 中写入信息-------}
  AMirFile.WriteString('Setup','ServerAddr',EAddr.Text);
  AMirFile.WriteString('Setup','FontName','楷体');
  AMirFile.WriteString('Setup','Param1','');
  AMirFile.WriteString('Setup','Param2','');
  AMirFile.WriteString('Setup','Param3','');
  AMirFile.WriteString('Setup','Param4','');
  AMirFile.WriteString('Setup','Param5','');
  AMirFile.WriteString('Setup','patched','0');

  {-----向 mirsetup.ini 中写入信息----}
  AmirSetupFile.WriteString('setup','ServerAddr',EAddr.Text );
  AmirSetupFile.WriteString('setup','FontName','Arial');

   AftpFile.Destroy ;
   AMirFile.Destroy ;
   AMirSetupFile.Destroy ;
end;

procedure TFrmLogin.WriteMir3;
{将数据写入 the legend of mir3 的相关配置文件中}
Var
  Mir3File,Mir3Patch:string;
  AMir3File,AMir3Patch:TIniFile;
begin
  Mir3File:=ExtractFilePath(Paramstr(0))+'Mir3.ini';
  AMir3File:=Tinifile.Create(Mir3File);

  Mir3Patch:=ExtractFilePath(Paramstr(0))+'Mir3Patch.ini';
  AMir3Patch:=Tinifile.Create(Mir3Patch);

  {--------将相关信息写入 mir3.ini 文件中--------}
  AMir3File.WriteString('Initial','ServerAddr',EAddr.Text);
  AMir3File.WriteString('Server','ServerCount',Ecount.Text);
  AMir3File.EraseSection('Server');
  case StrToInt(Ecount.Text) of
    1:begin
      AMir3File.WriteString ('Server','server1caption',ec1.Text);
      AMir3File.WriteString ('Server','server1name',en1.Text);
      end;
    2:begin
      AMir3File.WriteString ('Server','server1caption',ec1.Text);
      AMir3File.WriteString ('Server','server1name',en1.Text);
      AMir3File.WriteString ('Server','server2caption',ec2.Text);
      AMir3File.WriteString ('Server','server2name',en2.Text);
      end;
    3:begin
      AMir3File.WriteString ('Server','server1caption',ec1.Text);
      AMir3File.WriteString ('Server','server1name',en1.Text);
      AMir3File.WriteString ('Server','server2caption',ec2.Text);
      AMir3File.WriteString ('Server','server2name',en2.Text);
      AMir3File.WriteString ('Server','server3caption',ec3.Text);
      AMir3File.WriteString ('Server','server3name',en3.Text);
      end;
    4:begin
      AMir3File.WriteString ('Server','server1caption',ec1.Text);
      AMir3File.WriteString ('Server','server1name',en1.Text);
      AMir3File.WriteString ('Server','server2caption',ec2.Text);
      AMir3File.WriteString ('Server','server2name',en2.Text);
      AMir3File.WriteString ('Server','server3caption',ec3.Text);
      AMir3File.WriteString ('Server','server3name',en3.Text);
      AMir3File.WriteString ('Server','server4caption',ec4.Text);
      AMir3File.WriteString ('Server','server4name',en4.Text);
      end;
    5:begin
      AMir3File.WriteString ('Server','server1caption',ec1.Text);
      AMir3File.WriteString ('Server','server1name',en1.Text);
      AMir3File.WriteString ('Server','server2caption',ec2.Text);
      AMir3File.WriteString ('Server','server2name',en2.Text);
      AMir3File.WriteString ('Server','server3caption',ec3.Text);
      AMir3File.WriteString ('Server','server3name',en3.Text);
      AMir3File.WriteString ('Server','server4caption',ec4.Text);
      AMir3File.WriteString ('Server','server4name',en4.Text);
      AMir3File.WriteString ('Server','server5caption',ec5.Text);
      AMir3File.WriteString ('Server','server5name',en5.Text);
      end;
    6:begin
      AMir3File.WriteString ('Server','server1caption',ec1.Text);
      AMir3File.WriteString ('Server','server1name',en1.Text);
      AMir3File.WriteString ('Server','server2caption',ec2.Text);
      AMir3File.WriteString ('Server','server2name',en2.Text);
      AMir3File.WriteString ('Server','server3caption',ec3.Text);
      AMir3File.WriteString ('Server','server3name',en3.Text);
      AMir3File.WriteString ('Server','server4caption',ec4.Text);
      AMir3File.WriteString ('Server','server4name',en4.Text);
      AMir3File.WriteString ('Server','server5caption',ec5.Text);
      AMir3File.WriteString ('Server','server5name',en5.Text);
      AMir3File.WriteString ('Server','server6caption',ec6.Text);
      AMir3File.WriteString ('Server','server6name',en6.Text);
      end;
    7:begin
      AMir3File.WriteString ('Server','server1caption',ec1.Text);
      AMir3File.WriteString ('Server','server1name',en1.Text);
      AMir3File.WriteString ('Server','server2caption',ec2.Text);
      AMir3File.WriteString ('Server','server2name',en2.Text);
      AMir3File.WriteString ('Server','server3caption',ec3.Text);
      AMir3File.WriteString ('Server','server3name',en3.Text);
      AMir3File.WriteString ('Server','server4caption',ec4.Text);
      AMir3File.WriteString ('Server','server4name',en4.Text);
      AMir3File.WriteString ('Server','server5caption',ec5.Text);
      AMir3File.WriteString ('Server','server5name',en5.Text);
      AMir3File.WriteString ('Server','server6caption',ec6.Text);
      AMir3File.WriteString ('Server','server6name',en6.Text);
      AMir3File.WriteString ('Server','server7caption',ec7.Text);
      AMir3File.WriteString ('Server','server7name',en7.Text);
      end;
    8:begin
      AMir3File.WriteString ('Server','server1caption',ec1.Text);
      AMir3File.WriteString ('Server','server1name',en1.Text);
      AMir3File.WriteString ('Server','server2caption',ec2.Text);
      AMir3File.WriteString ('Server','server2name',en2.Text);
      AMir3File.WriteString ('Server','server3caption',ec3.Text);
      AMir3File.WriteString ('Server','server3name',en3.Text);
      AMir3File.WriteString ('Server','server4caption',ec4.Text);
      AMir3File.WriteString ('Server','server4name',en4.Text);
      AMir3File.WriteString ('Server','server5caption',ec5.Text);
      AMir3File.WriteString ('Server','server5name',en5.Text);
      AMir3File.WriteString ('Server','server6caption',ec6.Text);
      AMir3File.WriteString ('Server','server6name',en6.Text);
      AMir3File.WriteString ('Server','server7caption',ec7.Text);
      AMir3File.WriteString ('Server','server7name',en7.Text);
      AMir3File.WriteString ('Server','server8caption',ec8.Text);
      AMir3File.WriteString ('Server','server8name',en8.Text);
      end;
    end;
  {--------将相关信息写入 Mir3Patch.ini 文件中--------}
  AMir3Patch.WriteString('PATCH_FTP','ServerIP',EAddr.Text);
  AMir3Patch.WriteString('PATCH_FTP','program',Eprogram.Text);
  AMir3Patch.EraseSection('Server');
  AMir3Patch.WriteString('Server','ServerCount',Ecount.Text);
  case StrToInt(Ecount.Text) of
    1:begin
      AMir3Patch.WriteString ('Server','server1caption',ec1.Text);
      AMir3Patch.WriteString ('Server','server1name',en1.Text);
      end;
    2:begin
      AMir3Patch.WriteString ('Server','server1caption',ec1.Text);
      AMir3Patch.WriteString ('Server','server1name',en1.Text);
      AMir3Patch.WriteString ('Server','server2caption',ec2.Text);
      AMir3Patch.WriteString ('Server','server2name',en2.Text);
      end;
    3:begin
      AMir3Patch.WriteString ('Server','server1caption',ec1.Text);
      AMir3Patch.WriteString ('Server','server1name',en1.Text);
      AMir3Patch.WriteString ('Server','server2caption',ec2.Text);
      AMir3Patch.WriteString ('Server','server2name',en2.Text);
      AMir3Patch.WriteString ('Server','server3caption',ec3.Text);
      AMir3Patch.WriteString ('Server','server3name',en3.Text);
      end;
    4:begin
      AMir3Patch.WriteString ('Server','server1caption',ec1.Text);
      AMir3Patch.WriteString ('Server','server1name',en1.Text);
      AMir3Patch.WriteString ('Server','server2caption',ec2.Text);
      AMir3Patch.WriteString ('Server','server2name',en2.Text);
      AMir3Patch.WriteString ('Server','server3caption',ec3.Text);
      AMir3Patch.WriteString ('Server','server3name',en3.Text);
      AMir3Patch.WriteString ('Server','server4caption',ec4.Text);
      AMir3Patch.WriteString ('Server','server4name',en4.Text);
      end;
    5:begin
      AMir3Patch.WriteString ('Server','server1caption',ec1.Text);
      AMir3Patch.WriteString ('Server','server1name',en1.Text);
      AMir3Patch.WriteString ('Server','server2caption',ec2.Text);
      AMir3Patch.WriteString ('Server','server2name',en2.Text);
      AMir3Patch.WriteString ('Server','server3caption',ec3.Text);
      AMir3Patch.WriteString ('Server','server3name',en3.Text);
      AMir3Patch.WriteString ('Server','server4caption',ec4.Text);
      AMir3Patch.WriteString ('Server','server4name',en4.Text);
      AMir3Patch.WriteString ('Server','server5caption',ec5.Text);
      AMir3Patch.WriteString ('Server','server5name',en5.Text);
      end;
    6:begin
      AMir3Patch.WriteString ('Server','server1caption',ec1.Text);
      AMir3Patch.WriteString ('Server','server1name',en1.Text);
      AMir3Patch.WriteString ('Server','server2caption',ec2.Text);
      AMir3Patch.WriteString ('Server','server2name',en2.Text);
      AMir3Patch.WriteString ('Server','server3caption',ec3.Text);
      AMir3Patch.WriteString ('Server','server3name',en3.Text);
      AMir3Patch.WriteString ('Server','server4caption',ec4.Text);
      AMir3Patch.WriteString ('Server','server4name',en4.Text);
      AMir3Patch.WriteString ('Server','server5caption',ec5.Text);
      AMir3Patch.WriteString ('Server','server5name',en5.Text);
      AMir3Patch.WriteString ('Server','server6caption',ec6.Text);
      AMir3Patch.WriteString ('Server','server6name',en6.Text);
      end;
    7:begin
      AMir3Patch.WriteString ('Server','server1caption',ec1.Text);
      AMir3Patch.WriteString ('Server','server1name',en1.Text);
      AMir3Patch.WriteString ('Server','server2caption',ec2.Text);
      AMir3Patch.WriteString ('Server','server2name',en2.Text);
      AMir3Patch.WriteString ('Server','server3caption',ec3.Text);
      AMir3Patch.WriteString ('Server','server3name',en3.Text);
      AMir3Patch.WriteString ('Server','server4caption',ec4.Text);
      AMir3Patch.WriteString ('Server','server4name',en4.Text);
      AMir3Patch.WriteString ('Server','server5caption',ec5.Text);
      AMir3Patch.WriteString ('Server','server5name',en5.Text);
      AMir3Patch.WriteString ('Server','server6caption',ec6.Text);
      AMir3Patch.WriteString ('Server','server6name',en6.Text);
      AMir3Patch.WriteString ('Server','server7caption',ec7.Text);
      AMir3Patch.WriteString ('Server','server7name',en7.Text);
      end;
    8:begin
      with AMir3Patch do
        begin
          WriteString ('Server','server1caption',ec1.Text);
          WriteString ('Server','server1name',en1.Text);
          WriteString ('Server','server2caption',ec2.Text);
          WriteString ('Server','server2name',en2.Text);
          WriteString ('Server','server3caption',ec3.Text);
          WriteString ('Server','server3name',en3.Text);
          WriteString ('Server','server4caption',ec4.Text);
          WriteString ('Server','server4name',en4.Text);
          WriteString ('Server','server5caption',ec5.Text);
          WriteString ('Server','server5name',en5.Text);
          WriteString ('Server','server6caption',ec6.Text);
          WriteString ('Server','server6name',en6.Text);
          WriteString ('Server','server7caption',ec7.Text);
          WriteString ('Server','server7name',en7.Text);
          WriteString ('Server','server8caption',ec8.Text);
          WriteString ('Server','server8name',en8.Text);
        end;
      end;
      end;

  AMir3File.Destroy ;
  AMir3Patch.Destroy ;
end;

procedure TFrmLogin.BtnDataMgrClick(Sender: TObject);
begin
  if FileExists('datamgr.exe') then
    begin
      winexec(PChar('datamgr.exe'),SW_SHOW);
    end
    else
    begin
    frmloginmsg.Caption :='错误提示';
    frmloginmsg.LblMsg.Caption :='    没有找到文件，请确认"DataMgr.exe"文件是否存在或是否与本程序在同一目录中，如果不是，请将该文件复制到本程序目录中！';
    FrmLoginMsg.ShowModal;
    end;
end;

procedure TFrmLogin.BtnAboutClick(Sender: TObject);
begin
  FrmLgoinAbout.showmodal;
end;

end.