[A1EXXX]

Из скрипта видно, что создаётся Label, в котором отображается процент распакованных файлов, т.е прогрессбар дёргаться не должен, смена текста в Label'е бывает на больших файлах запаздывает. Выход, только переписывать всё вручную, но поверьте, игра не стоит свеч, т.е писать много... »

тогда понятно, я думал, может есть что-то проще....

поиграйтесь со значениями в procedure InitializeWizard с: Код: ProgressLabel.Top:= ScaleY(107) ProgressLabel.Left:= ScaleX(392) »

это я знаю, указать координаты не сложно. проблема в том, что я хочу, чтобы проценты были на одной строке с надписью "Установка...", но если я просто перемещаю их туда, они скрываются, т.е. строка статуса получается поверх процентов (даже если я размещаю проценты почти в конце прогресс-бара), а мне надо наоборот.....

[Serega]

Как называется элемент чекбокс "Не создавать папку в меню «Пуск»"? »

Попробуйте скомпилировать этот скрипт:

читать дальше »

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
AllowNoIcons=yes
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion

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

[Code]
procedure InitializeWizard();
begin
  WizardForm.NoIconsCheck.Caption:= 'привет';
  WizardForm.NoIconsCheck.Checked:= True;
  WizardForm.NoIconsCheck.Enabled:= True;
  WizardForm.NoIconsCheck.Left:= 180;
  WizardForm.NoIconsCheck.Top:= 150;
end;

это я знаю, указать координаты не сложно. проблема в том, что я хочу, чтобы проценты были на одной строке с надписью "Установка...", но если я просто перемещаю их туда, они скрываются, »

Самое простое изменить, т.е. уменьшить значение WizardForm.FilenameLabel.Width

[x-net]

Помогите с ошибкой ничего не могу понять ,
пишет ошибку типа неверна комадная строка

читать дальше »

[setup]
AppName=Grandia 2
AppVerName=Grandia 2 [Repack]
AppPublisher=X-NET
DefaultDirName={pf}\Grandia 2
OutputDir=D:\Репаки\Prototype
DefaultGroupName=Grandia 2
UninstallFilesDir={app}\Uninstall
Compression=lzma/ultra64
InternalCompressLevel=ultra64
SolidCompression=true
DiskSpanning=yes
SlicesPerDisk=3
DiskSliceSize=1100000000
DisableProgramGroupPage=true
;DisableReadyPage=true
UninstallDisplayIcon={app}\Grandia2.exe, 0
UninstallDisplayName=Grandia 2
SetupIconFile=C:\Users\Администратор\Desktop\MAINICON.ico

[Languages]
Name: RUS; MessagesFile: compiler:Languages\Russian.isl

[Icons]
Name: "{group}\Запустить игру"; Filename: "{app}\Grandia2.exe"; WorkingDir: "{app}"; Check: GroupIcons
Name: "{group}\Удалить игру"; Filename: {app}\Uninstall\unins000; WorkingDir: {app}; Check: GroupIcons
Name: "{group}\Настроить"; Filename: {app}\GmConfig.exe; WorkingDir: {app}; Check: GroupIcons
Name: "{userdesktop}\Grandia 2"; Filename: {app}\Grandia2.exe; WorkingDir: {app}; Check: CreateIcons

;GameUx

[Files]
Source: ISSkin.dll; DestDir: {app}; Flags: dontcopy
Source: WinX1.cjstyles; DestDir: {tmp}; Flags: dontcopy
Source: get_hw_caps.dll; Flags: dontcopy
Source: 1.bmp; DestDir: {tmp}; Flags: dontcopy
Source: "C:\Program Files\Grandia 2\Grandia2.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Program Files\Grandia 2\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

;GameUx

[Run]
Filename: "{src}\DirectX\DXSETUP.exe"; Parameters: "\silent"; StatusMsg: ExpandConstant('{cm:UP}'); Check: InstallDirectX
Filename: "{src}\Redist\vcredist_x86.exe"; Parameters: "\q"; StatusMsg: "Идет установка Microsoft Visual C++ Redistibutable"; WorkingDir: "{src}\Redist"; Check: InstallRedist

[A1EXXX]

Самое простое изменить, т.е. уменьшить значение WizardForm.FilenameLabel.Width »

спасибо, понял!

[Serega]

пишет ошибку типа неверна комадная строка »

всё правильно, где вы видели обратный слеш '\' в ком. строке?
Замените '\' на '/', т.е.

Код:

[Run]
Filename: "{src}\DirectX\DXSETUP.exe"; Parameters: "/silent"; StatusMsg: ExpandConstant('{cm:UP}'); Check: InstallDirectX
Filename: "{src}\Redist\vcredist_x86.exe"; Parameters: "/q"; StatusMsg: "Идет установка Microsoft Visual C++ Redistibutable"; WorkingDir: "{src}\Redist"; Check: InstallRedist

[Mihail88]

serg aka lain, Serega, благодарю.
То что нужно, если не секрет как вы их узнаёте? Всмысле используемые элементы инсталлятора.

[zl0ybot]

Serega ты не как я и ни как другие ты мега гуру Inno setup...... (может сделаешь?)

[x-net]

Serega, блин всё получилось спасибо тебе, но теперь одна ошибка осталось в аську выйди, вопросы бы задавал по inno

[serg aka lain]

То что нужно, если не секрет как вы их узнаёте? Всмысле используемые элементы инсталлятора. »

Ну, можно взглянуть в файл Setup.e32 в папке Inno, с помощью редактора ресурсов (ResHacker , etc) TWIZARDFORM
или вот готовый

читать дальше »

object WizardForm: TWizardForm
Left = 191
Top = 139
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'WizardForm'
ClientHeight = 360
ClientWidth = 497
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Scaled = False
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Bevel: TBevel
Left = 0
Top = 313
Width = 497
Height = 2
Shape = bsTopLine
end
object CancelButton: TNewButton
Left = 464
Top = 327
Width = 17
Height = 23
Cancel = True
Caption = '*'
TabOrder = 4
OnClick = CancelButtonClick
end
object NextButton: TNewButton
Left = 440
Top = 327
Width = 17
Height = 23
Caption = '*'
Default = True
TabOrder = 3
OnClick = NextButtonClick
end
object BackButton: TNewButton
Left = 424
Top = 327
Width = 16
Height = 23
Caption = '*'
TabOrder = 2
OnClick = BackButtonClick
end
object OuterNotebook: TNewNotebook
Left = 0
Top = 0
Width = 497
Height = 313
ActivePage = InnerPage
Color = clBtnFace
ParentColor = False
TabOrder = 0
object WelcomePage: TNewNotebookPage
Color = clWindow
ParentColor = False
object WizardBitmapImage: TBitmapImage
Left = 0
Top = 0
Width = 164
Height = 314
end
object WelcomeLabel2: TNewStaticText
Left = 176
Top = 76
Width = 301
Height = 234
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 1
WordWrap = True
end
object WelcomeLabel1: TNewStaticText
Left = 176
Top = 16
Width = 301
Height = 54
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 0
WordWrap = True
end
end
object InnerPage: TNewNotebookPage
object Bevel1: TBevel
Left = 0
Top = 58
Width = 499
Height = 3
Shape = bsTopLine
end
object InnerNotebook: TNewNotebook
Left = 40
Top = 72
Width = 417
Height = 237
ActivePage = LicensePage
TabOrder = 1
object LicensePage: TNewNotebookPage
object LicenseNotAcceptedRadio: TNewRadioButton
Left = 0
Top = 216
Width = 417
Height = 17
Caption = '*'
Checked = True
TabOrder = 3
TabStop = True
OnClick = LicenseNotAcceptedRadioClick
end
object LicenseAcceptedRadio: TNewRadioButton
Left = 0
Top = 196
Width = 417
Height = 17
Caption = '*'
TabOrder = 2
OnClick = LicenseAcceptedRadioClick
end
object LicenseMemo: TRichEditViewer
Left = 0
Top = 24
Width = 417
Height = 161
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 1
WantReturns = False
UseRichEdit = False
end
object LicenseLabel1: TNewStaticText
Left = 0
Top = 0
Width = 417
Height = 14
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 0
WordWrap = True
end
end
object PasswordPage: TNewNotebookPage
object PasswordEdit: TPasswordEdit
Left = 0
Top = 40
Width = 265
Height = 21
TabOrder = 2
end
object PasswordEditLabel: TNewStaticText
Left = 0
Top = 24
Width = 417
Height = 14
AutoSize = False
Caption = '*'
FocusControl = PasswordEdit
TabOrder = 1
WordWrap = True
end
object PasswordLabel: TNewStaticText
Left = 0
Top = 0
Width = 417
Height = 14
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 0
WordWrap = True
end
end
object InfoBeforePage: TNewNotebookPage
object InfoBeforeMemo: TRichEditViewer
Left = 0
Top = 24
Width = 417
Height = 205
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 1
WantReturns = False
UseRichEdit = False
end
object InfoBeforeClickLabel: TNewStaticText
Left = 0
Top = 0
Width = 417
Height = 14
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 0
WordWrap = True
end
end
object UserInfoPage: TNewNotebookPage
object UserInfoSerialEdit: TNewEdit
Left = 0
Top = 120
Width = 417
Height = 21
MaxLength = 255
TabOrder = 5
OnChange = UserInfoEditChange
end
object UserInfoSerialLabel: TNewStaticText
Left = 0
Top = 104
Width = 417
Height = 14
AutoSize = False
Caption = '*'
FocusControl = UserInfoSerialEdit
TabOrder = 4
WordWrap = True
end
object UserInfoOrgEdit: TNewEdit
Left = 0
Top = 68
Width = 417
Height = 21
MaxLength = 255
TabOrder = 3
OnChange = UserInfoEditChange
end
object UserInfoOrgLabel: TNewStaticText
Left = 0
Top = 52
Width = 417
Height = 14
AutoSize = False
Caption = '*'
FocusControl = UserInfoOrgEdit
TabOrder = 2
WordWrap = True
end
object UserInfoNameEdit: TNewEdit
Left = 0
Top = 16
Width = 417
Height = 21
MaxLength = 255
TabOrder = 1
OnChange = UserInfoEditChange
end
object UserInfoNameLabel: TNewStaticText
Left = 0
Top = 0
Width = 417
Height = 14
AutoSize = False
Caption = '*'
FocusControl = UserInfoNameEdit
TabOrder = 0
WordWrap = True
end
end
object SelectDirPage: TNewNotebookPage
object SelectDirBitmapImage: TBitmapImage
Left = 0
Top = 0
Width = 32
Height = 32
end
object DiskSpaceLabel: TNewStaticText
Left = 0
Top = 216
Width = 417
Height = 14
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 4
WordWrap = True
end
object DirBrowseButton: TNewButton
Left = 400
Top = 67
Width = 17
Height = 23
Caption = '*'
TabOrder = 3
OnClick = DirBrowseButtonClick
end
object DirEdit: TEdit
Left = 0
Top = 68
Width = 397
Height = 21
TabOrder = 2
Text = 'DirEdit'
end
object SelectDirBrowseLabel: TNewStaticText
Left = 0
Top = 44
Width = 417
Height = 14
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 1
WordWrap = True
end
object SelectDirLabel: TNewStaticText
Left = 44
Top = 0
Width = 373
Height = 14
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 0
WordWrap = True
end
end
object SelectComponentsPage: TNewNotebookPage
object ComponentsDiskSpaceLabel: TNewStaticText
Left = 0
Top = 216
Width = 417
Height = 14
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 3
end
object ComponentsList: TNewCheckListBox
Left = 0
Top = 48
Width = 417
Height = 157
Offset = 2
OnClickCheck = ComponentsListClickCheck
RequireRadioSelection = True
TabOrder = 2
end
object TypesCombo: TNewComboBox
Left = 0
Top = 24
Width = 417
Height = 21
Style = csDropDownList
ItemHeight = 0
TabOrder = 1
OnChange = TypesComboChange
end
object SelectComponentsLabel: TNewStaticText
Left = 0
Top = 0
Width = 417
Height = 14
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 0
WordWrap = True
end
end
object SelectProgramGroupPage: TNewNotebookPage
object SelectGroupBitmapImage: TBitmapImage
Left = 0
Top = 0
Width = 32
Height = 32
end
object NoIconsCheck: TNewCheckBox
Left = 0
Top = 215
Width = 417
Height = 17
Caption = '*'
TabOrder = 4
OnClick = NoIconsCheckClick
end
object GroupBrowseButton: TNewButton
Left = 400
Top = 67
Width = 17
Height = 23
Caption = '*'
TabOrder = 3
OnClick = GroupBrowseButtonClick
end
object GroupEdit: TNewEdit
Left = 0
Top = 68
Width = 397
Height = 21
TabOrder = 2
Text = 'GroupEdit'
end
object SelectStartMenuFolderBrowseLabel: TNewStaticText
Left = 0
Top = 44
Width = 417
Height = 14
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 1
WordWrap = True
end
object SelectStartMenuFolderLabel: TNewStaticText
Left = 44
Top = 0
Width = 373
Height = 14
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 0
WordWrap = True
end
end
object SelectTasksPage: TNewNotebookPage
object TasksList: TNewCheckListBox
Left = 0
Top = 24
Width = 417
Height = 205
Color = clBtnFace
RequireRadioSelection = True
ShowLines = False
TabOrder = 1
WantTabs = True
end
object SelectTasksLabel: TNewStaticText
Left = 0
Top = 0
Width = 417
Height = 14
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 0
WordWrap = True
end
end
object ReadyPage: TNewNotebookPage
object ReadyMemo: TNewMemo
Left = 0
Top = 24
Width = 417
Height = 205
Color = clBtnFace
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 1
WantReturns = False
WordWrap = False
end
object ReadyLabel: TNewStaticText
Left = 0
Top = 0
Width = 417
Height = 14
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 0
WordWrap = True
end
end
object PreparingPage: TNewNotebookPage
object PreparingErrorBitmapImage: TBitmapImage
Left = 0
Top = 0
Width = 16
Height = 16
Visible = False
end
object PreparingLabel: TNewStaticText
Left = 24
Top = 0
Width = 393
Height = 14
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 0
Visible = False
WordWrap = True
end
end
object InstallingPage: TNewNotebookPage
object FilenameLabel: TNewStaticText
Left = 0
Top = 16
Width = 417
Height = 16
AutoSize = False
ForceLTRReading = True
ShowAccelChar = False
TabOrder = 1
end
object StatusLabel: TNewStaticText
Left = 0
Top = 0
Width = 417
Height = 16
AutoSize = False
ShowAccelChar = False
TabOrder = 0
end
object ProgressGauge: TNewProgressBar
Left = 0
Top = 42
Width = 417
Height = 21
Min = 0
Max = 100
end
end
object InfoAfterPage: TNewNotebookPage
object InfoAfterMemo: TRichEditViewer
Left = 0
Top = 24
Width = 417
Height = 205
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 1
WantReturns = False
UseRichEdit = False
end
object InfoAfterClickLabel: TNewStaticText
Left = 0
Top = 0
Width = 417
Height = 14
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 0
WordWrap = True
end
end
end
object MainPanel: TPanel
Left = 0
Top = 0
Width = 497
Height = 58
BevelOuter = bvNone
Color = clWindow
TabOrder = 0
object WizardSmallBitmapImage: TBitmapImage
Left = 440
Top = 0
Width = 55
Height = 58
BackColor = clWindow
end
object PageDescriptionLabel: TNewStaticText
Left = 40
Top = 26
Width = 389
Height = 29
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 1
WordWrap = True
end
object PageNameLabel: TNewStaticText
Left = 24
Top = 10
Width = 405
Height = 14
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 0
end
end
end
object FinishedPage: TNewNotebookPage
Color = clWindow
ParentColor = False
object WizardBitmapImage2: TBitmapImage
Left = 0
Top = 0
Width = 164
Height = 314
end
object NoRadio: TNewRadioButton
Left = 176
Top = 184
Width = 301
Height = 17
Caption = '*'
TabOrder = 4
Visible = False
end
object YesRadio: TNewRadioButton
Left = 176
Top = 156
Width = 301
Height = 17
Caption = '*'
Checked = True
TabOrder = 3
TabStop = True
Visible = False
end
object RunList: TNewCheckListBox
Left = 176
Top = 156
Width = 301
Height = 149
BorderStyle = bsNone
ParentColor = True
TabOrder = 2
Visible = False
WantTabs = True
end
object FinishedLabel: TNewStaticText
Left = 176
Top = 76
Width = 301
Height = 53
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 1
WordWrap = True
end
object FinishedHeadingLabel: TNewStaticText
Left = 176
Top = 16
Width = 301
Height = 54
AutoSize = False
Caption = '*'
ShowAccelChar = False
TabOrder = 0
WordWrap = True
end
end
end
object BeveledLabel: TNewStaticText
Left = 0
Top = 306
Width = 5
Height = 14
Caption = '*'
Enabled = False
ShowAccelChar = False
TabOrder = 1
end
end

[zl0ybot]

serega

читать дальше »

procedure CurStepChanged(CurStep: TSetupStep);
var
res:Integer;
s,s1:string;
begin
If CurStep=ssInstall
then
begin


if (FileExists(AddBackslash(ExpandConstant('{src}')) + 'data1.bin')) and (FileExists(AddBackslash(ExpandConstant('{src}')) + 'data.bin')) then
begin

s:=ExpandConstant('{src}')+'\data.bin';
s1:=ExpandConstant('{app}');
Exec(s, '-y -o"'+ s1 + '"', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 1

s:=ExpandConstant('{src}')+'\data1.bin';
s1:=ExpandConstant('{app}');
Exec(s, '-y -o"'+ s1 + '"', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 3

Exec(ExpandConstant('{app}\zone\russian\pre.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, res);


WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 6



s:=ExpandConstant('{src}')+'\data2.bin';
s1:=ExpandConstant('{app}');
Exec(s, '-y -o"'+ s1 + '"', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 8

Exec(ExpandConstant('{app}\zone\russian\pre.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, res);
DeleteFile(ExpandConstant('{app}\zone\russian\msvcr80.dll'));
DeleteFile(ExpandConstant('{app}\zone\russian\packjpg_dll.dll'));
DeleteFile(ExpandConstant('{app}\zone\russian\zlib1.dll'));
DeleteFile(ExpandConstant('{app}\zone\russian\precomp.exe'));
DeleteFile(ExpandConstant('{app}\zone\russian\pre.bat'));


WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 11



s:=ExpandConstant('{src}')+'\data3.bin';
s1:=ExpandConstant('{app}');
Exec(s, '-y -o"'+ s1 + '"', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 13

Exec(ExpandConstant('{app}\main\1.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 14

Exec(ExpandConstant('{app}\main\2.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 15

s:=ExpandConstant('{src}')+'\data4.bin';
s1:=ExpandConstant('{app}');
Exec(s, '-y -o"'+ s1 + '"', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 17

Exec(ExpandConstant('{app}\main\3.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, res);
DeleteFile(ExpandConstant('{app}\msvcr80.dll'));
DeleteFile(ExpandConstant('{app}\packjpg_dll.dll'));
DeleteFile(ExpandConstant('{app}\zlib1.dll'));
DeleteFile(ExpandConstant('{app}\precomp.exe'));

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 19

s:=ExpandConstant('{src}')+'\data5.bin';
s1:=ExpandConstant('{app}');
Exec(s, '-y -o"'+ s1 + '"', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 20

Exec(ExpandConstant('{app}\main\dec1.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 23

Exec(ExpandConstant('{app}\main\dec2.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 26

Exec(ExpandConstant('{app}\main\dec3.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 29

Exec(ExpandConstant('{app}\main\4.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 30

Exec(ExpandConstant('{app}\main\5.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 31

Exec(ExpandConstant('{app}\main\6.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 32

Exec(ExpandConstant('{app}\main\7.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 33

Exec(ExpandConstant('{app}\main\8.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 34

Exec(ExpandConstant('{app}\main\9.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 35

Exec(ExpandConstant('{app}\main\10.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 37

s:=ExpandConstant('{src}')+'\data6.bin';
s1:=ExpandConstant('{app}');
Exec(s, '-y -o"'+ s1 + '"', '', SW_HIDE, ewWaitUntilTerminated, res);

WizardForm.StatusLabel.Caption:='Распаковка файлов...';
ProgressBar1.Position := 39










end else begin
MsgBox(ExpandConstant('{cm:file}'), mbInformation, MB_OK);
Abort;
end;
end;

end;

вот на ру.бораде нашёл