如何让Inno Setup始终将应用安装到嵌套文件夹中

问题原因 #

你之前的写法DestDir: "SampleApps\{app}"错误在于：{app}是绝对路径（比如C:\Program Files\MyApp），直接拼接会变成SampleApps\C:\Program Files\MyApp，系统会将其视为当前工作目录下的相对路径，导致出现C:\WINDOWS\system32\SampleApps\C:这类无效路径报错。

正确解决方案 #

核心思路是动态修改安装目录{app}的值，让它自动在用户选择的目录（默认/CLI指定）后追加SampleApps，这样所有文件直接安装到{app}即可。

1. 保留原有[Setup]段配置 #

不需要改动DefaultDirName，维持原来的默认目录设置：

[Setup]
; other stuff like AppId here
DefaultDirName={autopf}\{#MyAppName}

2. 添加[Code]段处理目录逻辑 #

在脚本末尾添加[Code]段，同时兼容向导界面和CLI命令行的场景：

[Code]

// 处理CLI传入的DIR参数
procedure InitializeSetup;
var
  CmdLineDir: String;
  NewInstallDir: String;
begin
  CmdLineDir := ExpandConstant('{param:DIR}');
  if CmdLineDir <> '' then
  begin
    // 检查CLI指定目录是否已包含SampleApps，避免重复追加
    if Pos('\SampleApps', UpperCase(CmdLineDir)) = 0 then
    begin
      NewInstallDir := CmdLineDir + '\SampleApps';
      // 覆盖默认安装目录配置
      SetIniString('Setup', 'DefaultDirName', NewInstallDir, ExpandConstant('{tmp}\setup.ini'));
    end;
  end;
end;

// 处理向导界面中用户选择的目录
function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;
  // 用户在选择目录页点击下一步时，自动追加SampleApps
  if CurPageID = wpSelectDir then
  begin
    if Pos('\SampleApps', UpperCase(WizardForm.DirEdit.Text)) = 0 then
    begin
      WizardForm.DirEdit.Text := WizardForm.DirEdit.Text + '\SampleApps';
    end;
  end;
end;

3. 保持[Files]段不变 #

原来的DestDir: "{app}"无需修改，此时{app}已经是用户选择的目录 + SampleApps：

[Files]
Source: "C:\Desktop\Installer\WpfApp\{#MyAppExeName}"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Desktop\Installer\WpfApp\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

效果验证 #

• 向导模式：用户选择任意目录（比如D:\MyApps），点击下一步后，安装目录自动变为D:\MyApps\SampleApps
• CLI模式：执行setup.exe /DIR="E:\Test"，文件会自动安装到E:\Test\SampleApps
• 若用户手动输入或CLI指定的目录已包含SampleApps，则不会重复追加，避免多层嵌套

内容的提问来源于stack exchange，提问作者pfinferno