unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    bsSkinGauge1: TbsSkinGauge;
    bsSkinPanel1: TbsSkinPanel;
    Label1: TLabel;
    Edit1: TEdit;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.bsSkinButton2Click(Sender: TObject);
begin
  close;
end;

procedure TForm2.bsSkinButton1Click(Sender: TObject);
var
  path,mubiao:widestring;
begin
  path:=PChar(ExtractFilePath(Application.ExeName));
  mubiao:=Edit1.text+'\鑫海达科技\';
  try
    if not DirectoryExists(mubiao) then
      CreateDir(mubiao);
  except
    showmessage('安装位置输入错误！！');
    exit;
  end;    
  bsSkinGauge1.MaxValue:=9;
  bsSkinGauge1.Value:=0;
  CopyFileTo(path+'help.chm',mubiao+'help.chm');
  bsSkinGauge1.Value:=bsSkinGauge1.Value+1;
  CopyFileTo(path+'ini.exe',mubiao+'ini.exe');
  bsSkinGauge1.Value:=bsSkinGauge1.Value+1;
  CopyFileTo(path+'login.jpg',mubiao+'login.jpg');
  bsSkinGauge1.Value:=bsSkinGauge1.Value+1;
  CopyFileTo(path+'MAIN.INI',mubiao+'MAIN.INI');
  bsSkinGauge1.Value:=bsSkinGauge1.Value+1;
  CopyFileTo(path+'update.exe',mubiao+'update.exe');
  bsSkinGauge1.Value:=bsSkinGauge1.Value+1;
  CopyFileTo(path+'wall.jpg',mubiao+'wall.jpg');
  bsSkinGauge1.Value:=bsSkinGauge1.Value+1;
  CopyFileTo(path+'鑫海达航运物流管理系统.exe',mubiao+'鑫海达航运物流管理系统.exe');
  bsSkinGauge1.Value:=bsSkinGauge1.Value+1;
  CopyFileTo(path+'注册码.exe',mubiao+'注册码.exe');
  bsSkinGauge1.Value:=bsSkinGauge1.Value+1;
  CopyFileTo(path+'about.jpg',mubiao+'about.jpg');

  
  
end;

end.