ProgressBar

[buttignol]

How to make the second progress bar

Fill the bar each extracted file

100% for each file extracted

if OveralPct<=1000 then ISDoneProgressBar.Position := OveralPct;
LabelPct.Caption := IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';
#ifdef SecondProgressBar
if CurrentPct<=1000 then ISDoneProgressBar2.Position := CurrentPct;
LabelPct2.Caption := IntToStr(CurrentPct div 10)+'.'+chr(48 + CurrentPct mod 10)+'%'
#endif

The way the bar runs almost the same

Thanks

[Cesar82]

Try using percentage values from each Data file in the PctOfTotal parameter of the ISArcExtract function.
Example of equal percentages for 4 files (25% progress for each file).

if not ISArcExtract (0, 0.25, ExpandConstant('{src}\Data1.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract (0, 0.25, ExpandConstant('{src}\Data2.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract (0, 0.25, ExpandConstant('{src}\Data3.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract (0, 0.25, ExpandConstant('{src}\Data4.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

[buttignol]

Originally Posted by Cesar82

Try using percentage values from each Data file in the PctOfTotal parameter of the ISArcExtract function.
Example of equal percentages for 4 files (25% progress for each file).

if not ISArcExtract (0, 0.25, ExpandConstant('{src}\Data1.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract (0, 0.25, ExpandConstant('{src}\Data2.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract (0, 0.25, ExpandConstant('{src}\Data3.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract (0, 0.25, ExpandConstant('{src}\Data4.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

Friend is not what I want
It's the files inside .bin
Ex: compact the game in only one.bin file (setup-1.bin)
At the time of extracting the second progress bar runs file by Setup-1.Bin file
Bar 1 - Show Setup-1.Bin Extract
Bar 2 - Shows inside the setup-1.bin
understood

Amigo não é isto que quero
é os arquivos dentro do .bin
Ex: Compacto o jogo em somente um arquivo.bin (Setup-1.bin)
na hora de extrair a segunda barra de progresso correr arquivo por arquivo do Setup-1.bin
Barra 1 - mostra setup-1.bin extraindo
Barra 2 - mostra dentro do setup-1.bin
Entendeu

[buttignol]

Using "FilesMemo"
It would be possible to exchange "FilesMemo"
By progress bar
Can this work?
I tried but I could not

procedure AddToMemo(File: String);
begin
if ExtractFileExt(File) = '' then
FilesMemo.Lines.Add(RemoveBackslash(File)) else
FilesMemo.Lines.Add('Extraindo: ' + File);
end;

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;
begin
if OveralPct<=1000 then PBar.Position := OveralPct;
LabelCurrFileName.Caption := ExpandConstant('{app}\...');
LabelPct.Caption := IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';
LabelTime1.Caption := ExpandConstant('{cm:ElapsedTime} ')+TimeStr2;
LabelTime2.Caption := ExpandConstant('{cm:RemainingTime} ')+TimeStr1;
LabelTime3.Caption := ExpandConstant('{cm:AllElapsedTime}')+TimeStr3;

if (PrevFile <> String(CurrentFile)) and (String(CurrentFile) <> '') then begin
AddToMemo(CurrentFile);
PrevFile:= CurrentFile;
end;
Result := ISDoneCancel;
end;

procedure InitializeWizard();
begin

PrevFile:= '';
PBar2 := TNewProgressBar.Create(WizardForm);
with PBar2 do begin
Parent := WizardForm.InstallingPage;
SetBounds(0,60,417,20);
end;

[buttignol]

Old Installer (BlackBox)

[Dragonis40]

Still no answers?

[buttignol]

Originally Posted by Dragonis40

Still no answers?

Yes, nothing so far