[ZVSRus]

serg5,
[CustomMessages]
CreateStartMenuIcon=Создать ярлык(и) в меню «Пуск»

[Tasks]
Name: "startmenuicon"; Description: "{cm:CreateStartMenuIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

Вы поясните какие программы хотите запихнуть в свой установщик?
Подозреваю что хотите запихнуть стационарную и портативную.
А вообще то для ярлыков есть секция [Icons]

Создать проверочную функцию и подставить к ярлыкам программы для которой нужно устанавливать ярлыки.

[serg5]

И секцию [Icons] покажите. »

[Icons]
Name: "{autodesktop}\{#MyAppName_1}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
Name: "{autoprograms}\{#MyAppName_1}"; Filename: "{app}\{#MyAppExeName}"; Tasks: startmenuicon

с {group} и {commondesktop} вместо {autodesktop}; {autoprograms} ошибки

Вы поясните какие программы хотите запихнуть в свой установщик? Подозреваю что хотите запихнуть стационарную и портативную. »

Да.

[ZVSRus]

serg5,
Я так сразу и подозревал, только для этих целей думаю надо отказаться от секции [Tasks], а создать костомную страницу и уже на ней размещать все ваши хотелки, так как кроме стандартных ярлыков захотите что то ещё разместить.
Выбор установки стандартной версии или распаковки портативной версии на какой то стандартной странице будет смотреться не очень. Переупаковщики программ делают на отдельной кастомной странице. RePack (& Portable) by версий программ в сети валом, присмотритесь и определитесь для себя.

[serg5]

Я так сразу и подозревал, только для этих целей думаю надо отказаться от секции [Tasks], а создать костомную страницу и уже на ней размещать все ваши хотелки, так как кроме стандартных ярлыков захотите что то ещё разместить. Выбор установки стандартной версии или распаковки портативной версии на какой то стандартной странице будет смотреться не очень. Переупаковщики программ делают на отдельной кастомной странице. RePack (& Portable) by версий программ в сети валом, присмотритесь и определитесь для себя. »

Т.е. на стандартной странице без выбора создания ярлыка в меню Пуск,(чтобы по умолчанию),секции [CustomMessages]не получится? Как и применение без этого "Check: IsChecked".

[serg5]

Ещё вопрос "Требуемое место на диске" как прописать для двух программ по отдельности соответственно, без разделения на компоненты, и типы установки т.е. полная,минимальная и т.д.?

[Vanadiy777]

Ещё вопрос "Требуемое место на диске" как прописать для двух программ по отдельности соответственно, без разделения на компоненты, и типы установки т.е. полная,минимальная и т.д.? »

serg5,
Сейчас вообще не понятно... Откуда у Вас компоненты взялись?
Вы, или полностью свой скрипт дайте, чтобы было понятно, или мат. часть учите...
Никто Вашу идею не украдет здесь, а додумывать, что Вы там хотите реализовать - удовольствие так себе...

А как хорошо все начиналось:

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

Или аппетит приходит во время еды?

Извините, ничего личного.

[ZVSRus]

Т.е. на стандартной странице без выбора создания ярлыка в меню Пуск,(чтобы по умолчанию),секции [CustomMessages]не получится? Как и применение без этого "Check: IsChecked".

Ну почему же не получится, получиться, просто я написал потому что в дальнейшем вам захочется ещё какой то чекбокс разместить, а места уже не будет хватать на странице.
Check: IsChecked это проверочная функция, IsChecked - это внутреннее название функции, оно может быть любое (по английски).
Можно и без неё, но ярлыки будут устанавливаться и при распаковке портативной программы, а это не к чему.

[serg5]

Ну почему же не получится, получиться, просто я написал потому что в дальнейшем вам захочется ещё какой то чекбокс разместить, а места уже не будет хватать на странице. Check: IsChecked это проверочная функция, IsChecked - это внутреннее название функции, оно может быть любое (по английски). Можно и без неё, но ярлыки будут устанавливаться и при распаковке портативной программы, а это не к чему. »

А как в вашем коде прописать данные для "Требуемое место на диске" для двух программ по отдельности соответственно ?
И если вернуться к вопросу "Как сделать ярлык в меню пуск,без выбора создания ярлыка в меню Пуск,(чтобы по умолчанию) создавался,только для одной программы?

Вы, или полностью свой скрипт дайте, чтобы было понятно, или мат. часть учите... »

Код:

 #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;

Или аппетит приходит во время еды? »

Просто люди реально знают, а не банальные флудеры.
Да и другим будет познавательно.

[ZVSRus]

Пример

А как в вашем коде прописать данные для "Требуемое место на диске" для двух программ по отдельности соответственно ?

Я никогда этого не делал, потому что для переупаковки программ не считаю нужным, не такие уж ёмкие программы. Для переупаковки игрушек, там да(несколько гигов). Ну всё на любителя, как говориться о вкусах не спорят. Примеров на форумах много.

[Vanadiy777]

serg5,
Зачем Вы даете скрипт, который предоставил коллега ZVSRus? Я его уже видел...

Свой скрипт весь давайте, с [Tasks], [Icons] и т.д.