// зачем в каждой процедуре это писать, вы их вынесите в общий var, в начале секции [Code]
...........................
var
res:Integer;
s:string;
................................
procedure Arc1.1;
begin
s:=ExpandConstant('{app}')+'\ZZPack1.1.exe';
Exec(s, '-x -y -d' + 'nativePC\', '', SW_SHOWNORMAL, ewWaitUntilTerminated, res);
DeleteFile(ExpandConstant('{app}\ZZPack1.1.exe'));
ExtractFile.Caption := 'Идёт распаковка данных, пожалуйста подождите';
WizardForm.ProgressGauge.Position:= WizardForm.ProgressGauge.Position + 1;
// Application.ProcessMessages; // необходима расширенная версия от Restools
end;
procedure Arc1.2;
begin
s:=ExpandConstant('{app}')+'\ZZPack1.2.exe';
Exec(s, '-x -y -d' + 'nativePC\', '', SW_SHOWNORMAL, ewWaitUntilTerminated, res);
DeleteFile(ExpandConstant('{app}\ZZPack1.2.exe'));
ExtractFile.Caption := 'Идёт распаковка данных, пожалуйста подождите';
WizardForm.ProgressGauge.Position:= WizardForm.ProgressGauge.Position + 1;
// Application.ProcessMessages; // необходима расширенная версия от Restools
end;
// и так далее 
|
