|
|
|
|
|
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+'\<5C>κ<EFBFBD><CEBA><EFBFBD><EFBFBD>Ƽ<EFBFBD>\';
|
|
|
|
|
|
try
|
|
|
|
|
|
if not DirectoryExists(mubiao) then
|
|
|
|
|
|
CreateDir(mubiao);
|
|
|
|
|
|
except
|
|
|
|
|
|
showmessage('<27><>װλ<D7B0><CEBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
|
|
|
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+'<27>κ<EFBFBD><CEBA>ﺽ<EFBFBD><EFBABD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵͳ.exe',mubiao+'<27>κ<EFBFBD><CEBA>ﺽ<EFBFBD><EFBABD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵͳ.exe');
|
|
|
|
|
|
bsSkinGauge1.Value:=bsSkinGauge1.Value+1;
|
|
|
|
|
|
CopyFileTo(path+'ע<><D7A2><EFBFBD><EFBFBD>.exe',mubiao+'ע<><D7A2><EFBFBD><EFBFBD>.exe');
|
|
|
|
|
|
bsSkinGauge1.Value:=bsSkinGauge1.Value+1;
|
|
|
|
|
|
CopyFileTo(path+'about.jpg',mubiao+'about.jpg');
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
end.
|
