Inno Setup (создание инсталяционных пакетов) - [2372] :: Программы

Код:

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "e:\FREEARC\Fin\*" ; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
Name: "{commondesktop}\My Program"; Filename: "{app}\MyProg.exe"; Tasks: desktopicon

[Run]
FileName: "{app}\ARC.exe";Parameters: "x -o+ {src}\11\Data1.arc"; WorkingDir:"{app}"; StatusMsg: "Востановка архивов...20%"; AfterInstall: animateprogress; Flags: runhidden
FileName: "{app}\ARC.exe";Parameters: "x -o+ {src}\11\Data2.arc"; WorkingDir:"{app}"; StatusMsg: "Востановка архивов...70%"; AfterInstall: animateprogress; Flags: runhidden
FileName: "cmd.exe"; Parameters: "/C del /F /Q Arc.exe facompress.dll precomp.exe arc.ini"; WorkingDir: "{app}"; Flags: runhidden

[code]
var
ProgressBar1: TNewProgressBar;

procedure animateprogress;
begin ProgressBar1.Position := ProgressBar1.Position+1
end;

procedure InitializeWizard;
begin
ProgressBar1 := TNewProgressBar.Create(wizardform);
with ProgressBar1 do
begin
Parent := wizardform.installingpage;
Left := wizardform.progressgauge.left;
Top := wizardform.progressgauge.top+wizardform.progressgauge.height+15;
Width := wizardform.progressgauge.width;
Height := wizardform.progressgauge.height;
Max :=2; //задается как кол-во файлов в [_run]
end;
end;

Модерирует : gyra, Maz
Widok (10-08-2009 22:13): Лимит страниц. Продолжаем здесь.	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению