[serg5]

ну так правильно, прописана временная папка. Оттуда уже запускается установщик той программы, которую Вы выбрали для установки. Или не это было нужно? »

В идеале, запускается установщик далее выбор программы, после выбора программы ,выбор пути установки который может быть разный. Ключи реестра тоже прописать надо.
Т.е. это ещё не готовые собранные программы.
Ваш пример не плох. Но в нём необходим уже собранный софт.
Хотя в любом случае спс.

[ZVSRus]

Скрипт для двух .exe в одном инсталляторе. Чтобы можно было выбирать какую программу устанавливать. Может кто подскажет ?

Что подразумевается под словом Скрипт для двух .exe в одном инсталляторе., установка сразу двух программ одновременно, или же с выбором, установка или первой или второй по отдельности.

[serg5]

Что подразумевается под словом Скрипт для двух .exe в одном инсталляторе., установка сразу двух программ одновременно, или же с выбором, установка или первой или второй по отдельности. »

В этом случае по отдельности.

[ZVSRus]

В этом случае по отдельности.

Пример

Код:

 #define MyAppName_1 "Программа 1"
 #define MyAppName_2 "Программа 2"

[Setup]
 AppName=My Program
 AppVerName=My Program v 1.7
 DefaultDirName={pf}\Программа 1
 OutputDir=.

[Files]
 Source: compiler:Examples\MyProg1.exe; DestDir: {app}; Check: IsChecked_1; Flags: ignoreversion;
 Source: compiler:Examples\MyProg2.exe; DestDir: {app}; Check: IsChecked_2; Flags: ignoreversion;

[Code__]
var
  Check: array [0..1] of TCheckBox;

procedure Check0(Sender: TObject);
begin
if Check[0].Checked then
begin
  Check[1].Checked := False;
end;

if (Check[0].Checked = False) and (Check[1].Checked = False) then Check[0].Checked := True;
if Check[0].Checked then WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{pf}')) + '{#MyAppName_1}';
end;

procedure Check1(Sender: TObject);
begin
if Check[1].Checked then
begin
  Check[0].Checked := False;
end;

if (Check[0].Checked = False) and (Check[1].Checked = False) then Check[1].Checked := True;
if Check[1].Checked then WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{sd}')) + '{#MyAppName_2}';
end;

//--------------------------------------------------\\
function IsChecked_1: boolean;
begin
	Result:= Check[0].Checked;
end;
//--------------------------------------------------\\
function IsChecked_2: boolean;
begin
	Result:= Check[1].Checked;
end;
//--------------------------------------------------\\

procedure InitializeWizard();
begin
Check[0] := TCheckBox.Create(WizardForm);
  with Check[0] do
  begin
    Parent := WizardForm.SelectDirPage;
    Checked := True;
    Top := ScaleY(120);
    OnClick := @Check0;
    Caption := 'Программа 1';
  end;

Check[1] := TCheckBox.Create(WizardForm);
  with Check[1] do
  begin
    Parent := WizardForm.SelectDirPage;
    Top := ScaleY(150);
    OnClick := @Check1;
    Caption := 'Программа 2';
  end;
end;

[serg5]

Пример »

Ошибка.. 2022-07-06_16-03-19.jpg
Удалил секцию "Files" чтобы посмотреть окна визуально.
Открывается только одно окно инсталлировать не указано что.
Без указания пути.

[ZVSRus]

serg5,

[Code__] убери черту

[serg5]

[Code__] убери черту »

Ошибка пропала,но в остальном тоже самое"Открывается только одно окно инсталлировать не указано что.
Без указания пути." 2022-07-06_16-24-03.jpg

[ZVSRus]

serg5,
По картинке вижу что версия компилятора 6.
Покажите секцию [Setup]

[serg5]

По картинке вижу что версия компилятора 6. Покажите секцию [Setup] »

[Setup]
AppName=My Program
AppVerName=My Program v 1.7
DefaultDirName={pf}\Программа 1
OutputDir=.

Всё с вашего кода.

[ZVSRus]

http://forum.oszone.net/attachment.p...1&d=1657113738

Настрой свой компилятор, в 6 версиях какие-то страницы отключены по умолчанию.