You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
77 lines
1.9 KiB
Plaintext
77 lines
1.9 KiB
Plaintext
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.
|