|
procedure CurStepChanged(CurStep: TSetupStep);
var Comps1,Comps2,Comps3, TmpValue:cardinal;
FindHandle1,ColFiles1,CurIndex1,tmp:integer;
ExecError:boolean;
InFilePath,OutFilePath,OutFileName:PAnsiChar;
ArcInt: integer;
begin
if CurStep = ssInstall then begin
CheckTasks;
WizardForm.ProgressGauge.Hide;
WizardForm.CancelButton.Hide;
CreateControls;
WizardForm.StatusLabel.Caption:=ExpandConstant('{c m:Extracted}');
ISDoneCancel:=0;
ExtractTemporaryFile('CallbackCtrl.dll');
InitWin7TaskBar;
ExtractTemporaryFile('unarc.dll');
ArcInt:=3 //defines the number of archives involved in process, You can use {#ArcNumber}.
ISDoneProgressBar1.Max:= ISDoneProgressBar1.Max * ArcInt
|