unit_setup.pas

一款传奇登陆器的源代码,使用DELPHI写的,大家可以参考下

unit Unit_Setup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm, StdCtrls, SUIEdit, SUIButton, SUIComboBox,
  SUIImagePanel, SUIGroupBox,IniFiles, Mask,SUIDlg, cxControls,
  cxContainer, cxEdit, cxTextEdit, cxCurrencyEdit, RzShellDialogs;

type
  TFrm_Setup = class(TForm)
    FrmSetup: TsuiForm;
    suiGroupBox1: TsuiGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Com_ServerList: TsuiComboBox;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiButton3: TsuiButton;
    Edit_ServerName: TsuiEdit;
    Edit_ServerUrl: TsuiEdit;
    suiGroupBox2: TsuiGroupBox;
    Label8: TLabel;
    Com_WgList: TsuiComboBox;
    Label9: TLabel;
    Edit_WgName: TsuiEdit;
    Label10: TLabel;
    Edit_WgPath: TsuiEdit;
    suiButton4: TsuiButton;
    suiButton5: TsuiButton;
    suiButton6: TsuiButton;
    suiButton7: TsuiButton;
    Edit_ServerIp: TsuiMaskEdit;
    suiMessageDialog1: TsuiMessageDialog;
    Edit_ServerPort: TsuiEdit;
    RzOpenDialog1: TRzOpenDialog;
    suiImagePanel1: TsuiImagePanel;
    suiImagePanel2: TsuiImagePanel;
    procedure Com_ServerListChange(Sender: TObject);
    procedure Com_WgListChange(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure Show_Message(text:String;Icon:TsuiIconType);
    procedure suiButton3Click(Sender: TObject);
    procedure Com_ServerListEnter(Sender: TObject);
    procedure Com_WgListEnter(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton5Click(Sender: TObject);
    procedure suiButton6Click(Sender: TObject);
    procedure suiButton7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Setup: TFrm_Setup;

implementation

uses Unit_Main, Unit_MyPro, Unit_RcFile;

{$R *.dfm}

procedure TFrm_Setup.Com_ServerListChange(Sender: TObject);
var
  i:integer;
begin

  i:=Com_ServerList.ItemIndex;
  Edit_ServerName.Text:=Trim(PServerInfo(ServerS[i+1]).ServerName);
  Edit_ServerIp.Text:=Trim(PServerInfo(ServerS[i+1]).ServerIp);
  Edit_ServerPort.Text:=IntToStr(PServerInfo(ServerS[i+1]).ServerPort);
  Edit_ServerUrl.Text:=Trim(PServerInfo(ServerS[i+1]).ServerUrl);
end;

procedure TFrm_Setup.Com_WgListChange(Sender: TObject);
var
  i:integer;
begin
  i:=Com_WgList.ItemIndex;
  Edit_WgName.Text:=Trim(PWgInfo(Wgs[i]).WgName);
  Edit_WgPath.Text:=Trim(PWgInfo(Wgs[i]).WgPath);
end;

procedure TFrm_Setup.suiButton1Click(Sender: TObject);
Var
  Tmp_Serverinfo:PServerInfo;
  Ip,Url:String;
begin
  if Edit_ServerName.Text='' then
  begin
    Show_Message('服务器名字不能为空',suiWarning);
    Edit_ServerName.SetFocus;
    exit;
  end;
  Ip:=StrToIp(Edit_ServerIp.Text);
  Try
    Edit_ServerPort.Text:=IntToStr(StrToInt(Edit_ServerPort.Text));
  except
    Show_Message('端口号必须为整数',suiWarning);
    Edit_ServerPort.SetFocus;
    exit;
  end;
  if Ip='' then
  begin
    url:=Trim(Edit_ServerUrl.Text);
    if UpperCase(Copy(url,1,7))='HTTP://' then url:=Copy(url,8,length(url)-7);
    if not HostToIP(Url,Ip) then
    begin
      Show_Message('通过服务器网址无法取得IP地址'+#13+'必须指定IP。',suiWarning);
      Edit_ServerIp.SetFocus;
      exit;
    end;
  end;
  New(Tmp_ServerInfo);
  Tmp_Serverinfo.ServerName:=Trim(Edit_ServerName.Text);
  Tmp_Serverinfo.ServerIp:=Ip;
  Tmp_Serverinfo.ServerPort:=StrToInt(Edit_ServerPort.Text);
  Tmp_Serverinfo.ServerUrl:=Edit_ServerUrl.Text;
  Tmp_Serverinfo.RegSvrIp:='';
  Tmp_Serverinfo.RegSvrPort:=0;
  ServerS.Add(Tmp_Serverinfo);
  Show_Message('服务器添加成功，祝您游戏愉快！',suiInformation);
end;

procedure TFrm_Setup.Show_Message(text:String;Icon:TsuiIconType);
begin
  suiMessageDialog1.Caption:='提示信息';
  suiMessageDialog1.Text:=text;
  suiMessageDialog1.IconType:=Icon;
  suiMessageDialog1.ShowModal;
end;


procedure TFrm_Setup.suiButton3Click(Sender: TObject);
var
  ip,url:String;
begin
  if Com_ServerList.ItemIndex<0 then
  begin
    Show_Message('必须选择一个服务器！',suiWarning);
    Com_ServerList.SetFocus;
    Exit;
  end;
  if Edit_ServerName.Text='' then
  begin
    Show_Message('服务器名字不能为空',suiWarning);
    Edit_ServerName.SetFocus;
    exit;
  end;
  Ip:=StrToIp(Edit_ServerIp.Text);
  Try
    Edit_ServerPort.Text:=IntToStr(StrToInt(Edit_ServerPort.Text));
  except
    Show_Message('端口号必须为整数',suiWarning);
    Edit_ServerPort.SetFocus;
    exit;
  end;
  if Ip='' then
  begin
    url:=Trim(Edit_ServerUrl.Text);
    if UpperCase(Copy(url,1,7))='HTTP://' then url:=Copy(url,8,length(url)-7);
    if not HostToIP(Url,Ip) then
    begin
      Show_Message('通过服务器网址无法取得IP地址'+#13+'必须指定IP。',suiWarning);
      Edit_ServerIp.SetFocus;
      exit;
    end;
  end;
  PServerInfo(Servers[Com_ServerList.ItemIndex+1]).ServerName:=Edit_ServerName.Text;
  PServerInfo(Servers[Com_ServerList.ItemIndex+1]).ServerIp:=Ip;
  PServerInfo(Servers[Com_ServerList.ItemIndex+1]).ServerPort:=StrToInt(Edit_ServerPort.Text);
  PServerInfo(Servers[Com_ServerList.ItemIndex+1]).ServerUrl:=Edit_ServerUrl.Text;
  Show_Message('服务器修改成功，祝您游戏愉快！',suiInformation);
end;


procedure TFrm_Setup.Com_ServerListEnter(Sender: TObject);
var
  i:integer;
begin
  Com_ServerList.Items.Clear;
  for i := 1 to Servers.Count-1 do
  begin
    Com_ServerList.Items.Add(PServerInfo(ServerS[i]).ServerName);
  end;
end;

procedure TFrm_Setup.Com_WgListEnter(Sender: TObject);
var
  i:integer;
begin
  Com_WgList.Items.Clear;
  for i := 0 to WgS.Count-1 do
  begin
    Com_WgList.Items.Add(PWgInfo(WgS[i]).WgName);
  end;

end;

procedure TFrm_Setup.suiButton2Click(Sender: TObject);
begin
  if Com_ServerList.ItemIndex>=0 then
  begin
    ServerS.Delete(Com_ServerList.ItemIndex+1);
    Show_Message('服务器已经删除，祝您游戏愉快！',suiInformation);
  end;
end;

procedure TFrm_Setup.suiButton4Click(Sender: TObject);
begin
  RzOpenDialog1.Title:='指定外挂执行文件';
  if RzOpenDialog1.Execute then Edit_WgPath.Text:=RzOpenDialog1.FileName;
end;

procedure TFrm_Setup.suiButton5Click(Sender: TObject);
Var
  Tmp_Wginfo:PWgInfo;
begin
  if Edit_WgName.Text='' then
  begin
    Show_Message('外挂名字不能为空！',suiWarning);
    Edit_WgName.SetFocus;
    exit;
  end;
  if not FileExists(Edit_WgPath.Text) then
  begin
    Show_Message('外挂文件不存在！',suiWarning);
    Edit_WgPath.SetFocus;
    exit;
  end;
  New(Tmp_WgInfo);
  Tmp_Wginfo.WgName:=Trim(Edit_WgName.Text);
  Tmp_Wginfo.WgPath:=Trim(Edit_WgPath.Text);
  WgS.Add(Tmp_Wginfo);
  Show_Message('外挂添加成功，祝您游戏愉快！',suiInformation);
end;

procedure TFrm_Setup.suiButton6Click(Sender: TObject);
begin
  if Com_WgList.ItemIndex>=0 then
  begin
    Wgs.Delete(Com_WgList.ItemIndex);
    Show_Message('外挂已经删除，祝您游戏愉快！',suiInformation);
  end;

end;

procedure TFrm_Setup.suiButton7Click(Sender: TObject);
begin
  if Com_WgList.ItemIndex<0 then
  begin
    Show_Message('必须选择一个外挂！',suiWarning);
    Com_WgList.SetFocus;
    Exit;
  end;
  if Edit_WgName.Text='' then
  begin
    Show_Message('外挂名字不能为空！',suiWarning);
    Edit_WgName.SetFocus;
    exit;
  end;
  if not FileExists(Edit_WgPath.Text) then
  begin
    Show_Message('外挂文件不存在！',suiWarning);
    Edit_WgPath.SetFocus;
    exit;
  end;
  PWgInfo(Wgs[Com_WgList.ItemIndex]).WgName:=Trim(Edit_WgName.Text);
  PWgInfo(Wgs[Com_WgList.ItemIndex]).WgPath:=Trim(Edit_WgPath.Text);
  Show_Message('外挂修改成功，祝您游戏愉快！',suiInformation);

end;

procedure TFrm_Setup.FormCreate(Sender: TObject);
begin
  SetForm_Style(FrmSetup,ExeType);
end;

end.