Вопрос Информация о распаковывающемся архиве

[Timick]

Всем привет! Можно ли сделать так, чтобы в процессе установки, вместо надписи
"Распаковка игровых архивов", отображалось что-то вроде "Распаковка архивов: «Data-1.bin | 3.9%» Архив 1 из 7"?
Естественно, чтобы эти показатели были динамическими, и изменялись в процессе установки.
Заранее благодарю за любою помощь.
P.S. Использую ISDone.

Вот скриншот инсталлятора:

Спойлер

 

[sergey3695]

var
  Data, Number: String;

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;
begin
  WizardForm.StatusLabel.Caption:= 'Распаковка архивов: «'+Data+' | '+IntToStr(CurrentPct div 10)+'.'+chr(48 + CurrentPct mod 10)+'%'+'» Архив '+Number+'"';
//...
  if CurStep = ssInstall then begin  //Если необходимо, можно поменять на ssPostInstall
  Data:= 'Data-1.bin';
  Number:= '1 из 7';
//...
  if not ISArcExtract  ( 0, 0, ExpandConstant('{src}\Data-1.bin'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
  Data:= 'Data-2.bin';
  Number:= '2 из 7';  
  if not IS7ZipExtract  ( 0, 0, ExpandConstant('{src}\Data-2.bin'), ExpandConstant('{app}\data1'), false, '') then break;
//...

 

[Timick]

Огромное спасибо, то что нужно!

 

[Timick]

Ещё вопросик возник: можно ли сделать так, чтобы общее количество архивов, менялось в зависимости от выбранных компонентов?

К примеру: устанавливается английская версия игры: Архив N из 7. Русская версия: Архив N из 6?

 

[sergey3695]

Timick, а кто мешает менять
Data:= 'Data-2.bin';
Number:= '2 из 7';
в зависимости от выбранного?