Как изменить параметр defaultdirname непосредственно перед установкой в ​​Inno Setup?

Доступны следующие глобальные объекты: MainForm типа TMainForm, WizardForm типа TWizardForm и UninstallProgressForm типа TUninstallProgressForm и одна специальная константа: crHand типа TControl.Cursor.

Если вы хотите установить в мастере каталог по умолчанию, просто получите доступ к его компонентам, как в обычном коде delphi.

Например, установите для каталога произвольное значение:

WizardForm.DirEdit.Text := 'c:\test';

чтобы прочитать это значение, вы можете использовать функцию WizardDirValue.

Я говорю "просто доступ" ... но мне потребовался час, чтобы понять;)

Похоже, что нет способа изменить константу сценария с помощью сценария.
Я думаю, что лучше всего изменить целевой каталог для каждой записи в разделе [Files], например

[Files]
Source: "MYPROG.EXE"; DestDir: "{code:NewTargetDir}"

и создайте новый установочный каталог следующим образом:

[Code]
function NewTargetDir(Param: String): String;
begin
  Result := ExpandConstant('{app}') + '\MySubDir';
end;

Поскольку функция NewTargetDir будет вызываться непосредственно перед фактическим копированием файла, это должно сработать.

Однако я считаю, что вам следует пересмотреть свой подход. Сначала просят пользователя указать каталог для установки, а затем фактическая установка в другой каталог, что, по-видимому, является вашим намерением, это неправильный путь, ИМО. У вас действительно есть веская причина для установки в каталог, отличный от указанного пользователем? Кроме того, результат моего примера кода также может быть достигнут, если указать

[Files]
Source: "MYPROG.EXE"; DestDir: "{app}\MySubDir"

без скриптов. В случае сомнений выберите более простое решение.

У меня аналогичная ситуация, когда приложение установки получает путь установки из командной строки. Я использую решение, предложенное Jonx:

WizardForm.DirEdit.Text := 'c:\test';

Пример:

function CompareParameter(param, expected: String): Boolean;
begin
  Result := False;
  if Length(param) >= Length(expected) then
  begin
    if CompareText(Copy(param, 1, Length(expected)), expected) = 0 then
    begin
      Result := True;
    end;
  end;
end;

function GetParameter(expectedParam: String): String;
var
  i : LongInt;
begin
  Result := '';
  for i := 0 to ParamCount() do
  begin
    if CompareParameter(ParamStr(i), '/' + expectedParam + '=') then
    begin
      Result := Copy(ParamStr(i), Length(expectedParam) + 3, Length(ParamStr(i)));
      break;
    end;
  end;
end;

procedure InitializeWizard();
var
  newInstallFolder: String;
begin
  newInstallFolder := GetParameter('INSTALL_FOLDER');
  if Length(newInstallFolder) > 2 then
  begin
    if Copy(newInstallFolder, 1, 1) = '"' then
      newInstallFolder := Copy(newInstallFolder, 2, Length(newInstallFolder) - 2)
    if Length(newInstallFolder) > 1 then
      WizardForm.DirEdit.Text := newInstallFolder;
  end;
end;

Приложение установки запускается из другой установки в беззвучном режиме. У меня это сработало.