Inno Setup中{reg:}内联常量无法展开的解决咨询

你遇到的问题是因为Inno Setup的预处理器常量（如{#RegKey}）无法直接嵌套在运行时常量{reg:...}内部。预处理器在编译阶段处理{#...}标记，但{reg}是安装时才解析的运行时变量，所以内部的{#RegKey}不会被展开，导致出现“unknown constant”错误。下面提供两种解决方案：

方案1：编译时确定路径（无需Pascal脚本） #

如果所有目标机器的注册表路径是固定的，可以用预处理器的GetRegString函数在编译时提前读取注册表值，拼接好源路径：

#define Version "2.0"
#define RegKey "MyExe v" + Version
// 编译时读取注册表，参数依次为根键、注册表项、值名称、默认路径
#define SourceDir GetRegString("HKLM64", "SOFTWARE\MyCompanyData\" + RegKey, "Path", "C:\MyCompanyData\MyExe v1.0")

[Setup]
AppName=我的应用
AppVersion={#Version}
DefaultDirName={pf}\我的应用

[Files]
Source: "{#SourceDir}\*"; DestDir: {app}; Flags: external recursesubdirs onlyifdoesntexist

注意：这个方法仅适用于路径在编译时就能确定的场景，因为预处理器是在编译阶段读取注册表的。

方案2：安装时动态读取（需Pascal脚本） #

如果不同机器的注册表路径可能不同，需要在安装时动态获取，就得用Pascal脚本替代[Files]段的静态配置：

#define Version "2.0"
#define RegKey "MyExe v" + Version

[Setup]
AppName=我的应用
AppVersion={#Version}
DefaultDirName={pf}\我的应用

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  SourcePath: string;
begin
  // 在安装准备阶段执行逻辑
  if CurStep = ssInstall then
  begin
    // 尝试读取注册表值，失败则使用默认路径
    if not RegQueryStringValue(HKLM64, 'SOFTWARE\MyCompanyData\{#RegKey}', 'Path', SourcePath) then
      SourcePath := 'C:\MyCompanyData\MyExe v1.0';
    
    // 检查源路径存在后，复制文件（参数对应原Flags的逻辑）
    if DirExists(SourcePath) then
      CopyFiles(SourcePath + '\*', ExpandConstant('{app}'), True, True, False);
  end;
end;

这段代码会在安装阶段动态读取注册表，然后调用CopyFiles完成文件复制，效果和你原本的[Files]段配置完全一致。

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