Inno 设置和 DefaultDirName

Question

是否有某种方法可以根据用户在安装时所做的某些决定通过代码设置 DefaultDirName？

我来评论一下： 我有一些为两个不同系统构建的代码（使用不同的互操作/ocx 等）。我的输入文件存储在两个目录 input\A 和 input\B 中。 我只想为两个系统提供一个安装文件。

在安装文件中，我使用 CreateInputOptionPage 和 2 个选项来确定要安装哪些文件（对每个文件使用“检查”）。这工作正常。

但我在安装完成时也有一些 ShellExec，目前它使用 {app} 来注册一些 .Net 类，并使用 ShellExec 在 InitializeUninstall 上取消注册 .Net 类（也使用 {app}）。

安装程序必须安装该软件位于两个不同的位置（取决于用户的选择（例如 c:\software_a 或 c:\software_b）。无法更改这一点。

那么在将文件复制到系统之前是否有某种方法可以指定 DefaultDirName，所以我可以在安装和卸载时使用相同的 ShellExec 吗？我当然可以在安装时为两个系统添加相同的 ShellExec 并使用 if 来检查要注册的文件（取决于用户选择），但在卸载时我不会有这个信息（用户选择），所以我无法取消注册 .Net 类，

谢谢。

Answer 1

在 CreateInputOptionPage 代码部分中，您可以设置一个值，然后在下面的代码片段中使用该值。我还没有测试过，但它可能有效。

[Setup]
DefaultDirName={code:getpath}

[Code]
function GetPath( Default: string ): string;
begin

if (CreateInputOptionPageValue1) then
 Result := ExpandConstant({sd}) + '\path1';
else
 Result := ExpandConstant({sd}) + '\path2';
end;

Answer 2

如果您需要在初始化 DefaultDirName 后更改安装文件夹，这对我来说非常有效：

procedure CurPageChanged(CurPageID: Integer);
begin
  { updates the install path depending on the install type or the entered suffix }
  if CurPageID = wpSelectDir then begin
     WizardForm.DirEdit.Text := ExpandConstant('{pf}') + '\MyAppName' + GetAppSuffix('');
  end;
end;

干杯
克里斯