[Dodakaedr]

Как можно добавить чистую страницу для вторых компонентов »

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[ Code]
var
  ISCustomPage1: TWizardPage;

procedure RedesignWizardForm;
begin
  ISCustomPage1 := CreateCustomPage(wpWelcome, 'ISCustomPage1_Caption', 'ISCustomPage1_Description');
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

[Nordek]

Как можно добавить чистую страницу для вторых компонентов »

Используйте "Дизайнер диалогов"
Откройте "Inno Setup Compiler"
Перейдите во вкладку "Дизайнер диалогов"
С левого бока выберите страницу (Welcome Page, License Page, Password Page и т.д) под которой хотите разместить новую чистую страницу.
Вверху, где "Файл, Правка" найдите "Дизайнер"
Кликните "Дизайнер", затем "Добавить диалог"
Всё, новая страница добавлена.

[diman_21Ru]

Dodakaedr, Мне вариант с нажатием на кнопку и спустить в низ больше понравился но с размерами запутался можете помочь скрипт вышлю , http://rghost.ru/56348041 , жду ответа

[Dinvin4ester]

Ребята,делаю выбор таблеток - http://i61.fastpic.ru/big/2014/0613/...420b833cf4.png ,от али все нормально,а вот от кодекса присутсвуют такие файлы http://i64.fastpic.ru/big/2014/0613/...21ddbf1.png,но при установке exe этот не заменяется,только ини файлы пеносяться.Как быть? Пожскажите пожалуйста..

[Nordek]

но с размерами запутался »

Если интересует Form_Soft, то вот:

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: text; Description: Дополнительное по; Types: full;
Name: text\DirectX; Description: DirectX 9;
Name: text\Visual; Description: Microsoft Visual C++;

[code]
var
Flag: Boolean;
SettingButton: TButton;
procedure HideShowOnClick(Sender: TObject);
begin
if Flag = False then begin
WizardForm.ClientWidth:= ScaleX(497);
WizardForm.ClientHeight:= ScaleY(360);
Flag:= True;
SettingButton.Caption:= '[ Показать ]';
end else begin
WizardForm.ClientWidth:= ScaleX(497);
WizardForm.ClientHeight:= ScaleY(550);   // Высота
Flag:= False;
SettingButton.Caption:= '[ Скрыть ]';
end;
end;

procedure InitializeWizard();
begin
SettingButton:= TButton.Create(WizardForm);
//                      Слева     Сверху       Ширина      Высота
SettingButton.SetBounds(ScaleX(5),ScaleY(325), ScaleX(80), ScaleY(23))
SettingButton.Caption:= '[ Показать ]';
SettingButton.OnClick:= @HideShowOnClick;
SettingButton.Parent:= WizardForm;
Flag:=True;
with WizardForm do begin
ComponentsList.Parent:= WizardForm;
WizardForm.ComponentsList.Checked[1]:=True
WizardForm.ComponentsList.Checked[2]:=True
//                                  Слева      Сверху       Ширина       Высота
WizardForm.ComponentsList.SetBounds(ScaleX(8),ScaleY(370), ScaleX(480), ScaleY(170))
WizardForm.ComponentsList.Color := clMenu;
end;

[Dodakaedr]

Мне вариант с нажатием на кнопку и спустить в низ больше понравился но с размерами запутался можете помочь »

Так сойдет? Script.iss

[Dinvin4ester]

Подскажите мне ?

[Dodakaedr]

Подскажите мне ? »

Мало инфы, нету скрипта.....как вам помочь?

[Dinvin4ester]

Dodakaedr,
Вот скрипт - http://multi-up.com/980008 . Не получается при установке заменить сами файлы,таблетка не встает,так как не заменяется сам ехе,буду рад помощи.

[Nordek]

Dinvin4ester, В секции [Files]

Код:

Source: "D:\Games\NoDVD\ALI213\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: SPINTIRES\ru;
Source: "D:\Games\NoDVD\CODEX\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: SPINTIRES\en;
Source: "D:\Games\SPINTIRES\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;

передвинь строку:

Код:

Source: "D:\Games\SPINTIRES\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;

на уровень выше

т.е вот так:

Код:

Source: "D:\Games\SPINTIRES\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;
Source: "D:\Games\NoDVD\ALI213\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: SPINTIRES\ru;
Source: "D:\Games\NoDVD\CODEX\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: SPINTIRES\en;