[ZVSRus]

Только в portable её не должно быть вообще. Так как там не нужны ярлыки. А она пытается и в portable ярлык повесить...

Так там их и не будет, потому что у вас в секции [Icons] все ярлыки в меню пуск будут установлены через проверочную функцию InstallerCheck, а это просто показывается страница. Эта страница или показывается или нет.
InnoSetup разработан под одну программу, а не под несколько. Запихать в InnoSetup несколько программ (стационарную и портативную) это уже умельцы придумали (переупаковщики программ)

PS: Вам как нужно, в обязательном порядке, при выборе стационарной версии показывать компоненты программной группы, или же не принципиально.

[serg5]

PS: Вам как нужно, в обязательном порядке, при выборе стационарной версии показывать компоненты программной группы, или же не принципиально. »

Не принципиально.

[ZVSRus]

serg5,

Если страницу выбора папки в меню пуск совсем не хотите показывать, тогда в секции [Setup] пропишите DisableProgramGroupPage=yes

Если при выборе стационарной версии страницу выбора папки в меню пуск показывать, а при выборе портативной версии нет,
тогда в секции [Setup] уберите или закомментируйте DisableProgramGroupPage=yes, а в скрипте вставь

Код:

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  case PageID of
    wpSelectProgramGroup: Result := Portable.Checked <> False;
  end;
end;

[serg5]

Если страницу выбора папки в меню пуск совсем не хотите показывать, тогда в секции [Setup] пропишите DisableProgramGroupPage=yes Если при выборе стационарной версии страницу выбора папки в меню пуск показывать, а при выборе портативной версии нет, тогда в секции [Setup] уберите или закомментируйте DisableProgramGroupPage=yes, а в скрипте вставь Код: function ShouldSkipPage(PageID: Integer): Boolean; begin case PageID of wpSelectProgramGroup: Result := Portable.Checked <> False; end; end; »

Всё Ok.спс.

[tigerheart001]

Добрейшего дня, уважаемые форумчане !
Прошу помощи со скриптом.
Ситуация такая.
1. Есть некоторая программа, которая устанавливается без проблем, как положено.
2. Есть дополнения (плагины) к этой программе, которые должны устанавливаться точно в ту же, папку, что и основная программа.
Но проблема в том, что не все пользователи понимают, какую папку нужно выбрать при установке дополнений, и потом жалуются, что, мол, «программа - херня, ничего не работает».
Решение:
Было бы хорошо, если бы установщик основной программы прописывал путь установки в системном реестре, а установщики дополнений потом его оттуда считывали бы.
С первой половиной задачи я справился без труда, добавив в скрипт установки :

Код:

[Registry]
Root: HKLM; Subkey: "SOFTWARE\{#MyAppName}"; ValueType: string; ValueName: "Path"; ValueData: "{app}"

Но вот вторую половину решить никак не получается.
Вот так ничего не работает :

Код:

[Setup]
...
DefaultDirName={reg:HKLM\SOFTWARE\{#MyAppName},Path|{sd}\{#MyAppName}}

( Переменной #MyAppName значение присвоено. )

[El Sanchez]

Вот так ничего не работает : »

tigerheart001, написано правильно, должно работать. Разве что программа пишет путь в 64-разрядный раздел реестра, а установщик дополнений читает из 32-разрядного.

[tigerheart001]

tigerheart001, написано правильно, должно работать. »

Значит вариант «кривые руки» исключаем.
Ок, пошёл тогда копать дальше.
Спасибо за наводку...

[EdMSL]

Vanadiy777, В продолжение темы http://forum.oszone.net/post-2993783-643.html
Можно ли добавить проверку, что если выбран определенный компонент из [Components], то тогда закрывать Ситм, иначе нет?
P.S. Вопрос снят, решение найдено.

[Vanadiy777]

EdMSL,

Скрытый текст

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
i: integer;

begin
 if CurStep = ssInstall then
  begin
// Компоненты пишем свои, если их несколько, то перечисляем, в зависимости от условий - "or" или "and"
// Здесь задается условие: если выбран компонент "Steam" и найден запущенный процесс "Steam" - то процесс будет "прибит"
   if IsComponentSelected('Steam') and IsProcessRunning('Steam.exe') then
    Exec(ExpandConstant('{sys}\taskkill.exe'), ' /F /IM Steam.exe', '', SW_HIDE, ewWaitUntilTerminated, i);
  end;
end;

P.S. Опоздал маненько, пока писал ...

[EdMSL]

P.S. Опоздал маненько, пока писал »

Может кому еще пригодится, мало ли. В любом случае спасибо за ответы.