unit1.pas

delphi写的千年私服登陆器

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    ServerList: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Image1: TImage;
    Label2: TLabel;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    Function ClinetPath(ClinetFileName:string):string;
    procedure ServerListUpdata;
    procedure ServerNameAdd;
    procedure ServerListClick(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses Unit2, Unit3,IniFiles,shellapi;
function sethook:bool; external 'cncn2.dll';
function endhook:bool; external 'cncn2.dll';

{$R *.dfm}
function ExecuteFile(const FileName, Params, DefaultDir: String ;
 ShowCmd: Integer): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
  begin
    Result := ShellExecute(Application.MainForm.Handle, nil,
      StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
      StrPCopy(zDir, DefaultDir), ShowCmd);
    end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.Color:=rgb(158,182,216);
  sethook;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2.showmodal;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Form3.showmodal;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ExeFile:string;
begin
  ExeFile:=form3.Edit1.Text;
  if FileExists(ExeFile) then
    begin
      ExecuteFile(ExeFile,'','',0);
      exit;
    end
  else
    Application.MessageBox('未设置客户端目录'+#13#10+'或客户端目录有误！',
    '错误提示 ',mb_ok+mb_iconERROR);
end;

Function TForm1.ClinetPath(ClinetFileName:string):string;
var
  ds,ts:string;
  di:integer;
  begin
  ds:=ClinetFileName;
  ts:=ExtractFilename(ds);
  di:=pos(ts,ds);
  delete(ds,di,Length(ts));
  Result:=ds;
  end;

procedure TForm1.ServerListUpdata;
  begin
    ServerList.Items.LoadFromFile(ClinetPath(Form3.Edit1.Text)+'addr.txt');
    ServerList.Text:=ServerList.Items.Strings[0];
  end;

procedure TForm1.ServerNameAdd;
var
  ClientIni:TiniFile;
  ServerName,s:string;
  l,i:integer;
  begin
    s := ServerList.Text;
  if s <> '选择服务器' then
    for i:=1 to 3 do
      begin
        l:=pos(',',s);
        delete(s,1,l);
        end;
    ServerName:=s;
    ClientIni:=TInifile.Create(ClinetPath(Form3.Edit1.Text)+'ClientIni.ini');
    ClientIni.WriteString('CLIENT','NAMEOFLEND',ServerName);
    ClientIni.Free;
  end;

procedure TForm1.ServerListClick(Sender: TObject);
  begin
    ServerNameAdd;
  end;

procedure TForm1.Image1Click(Sender: TObject);
  begin
    ExecuteFile('http://www.cncn2.com','','',0);
    exit;
  end;

procedure TForm1.Button3Click(Sender: TObject);
  begin
    ExecuteFile('http://www.cncn2.com/reg.asp','','',0);
    exit;
  end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
endhook;
close;
end;

end.