Inno Setup如何在[Setup]定义自定义变量并在[Code]中读取

你遇到的核心问题是**[Setup]节的自定义变量无法直接在Pascal脚本中引用**，同时原代码还缺少步骤判断、GitHub资源拉取/解压逻辑，以及未定义的Output变量问题。以下是具体解决方案：

方案1：使用预处理器宏定义路径（推荐，编译时解析） #

把目标路径定义为预处理器宏，可直接在脚本中通过ExpandConstant解析使用，适合固定路径场景：

#define MyAppName "你的应用名称"
#define MyVariable "{userappdata}\MetaQuotes\Terminal\{#MyAppName}"

[Setup]
AppName={#MyAppName}
AppVersion=1.0
DefaultDirName={pf}\{#MyAppName}

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  GitHubZipURL, TempZip, ExtractPath, TargetPath: string;
begin
  // 仅在安装完成后执行文件处理流程，避免干扰其他安装步骤
  if CurStep = ssPostInstall then
  begin
    // 配置GitHub资源地址和临时文件路径
    GitHubZipURL := 'https://github.com/你的仓库地址/archive/refs/heads/main.zip';
    TempZip := ExpandConstant('{tmp}\repo.zip');
    ExtractPath := ExpandConstant('{tmp}\extracted_files');
    TargetPath := ExpandConstant('{#MyVariable}');

    // 创建目标目录和临时解压目录
    if not ForceDirectories(TargetPath) or not ForceDirectories(ExtractPath) then
    begin
      MsgBox('无法创建必要目录', mbError, MB_OK);
      Abort;
    end;

    // 从GitHub下载文件
    if not URLDownloadToFile('', GitHubZipURL, TempZip, 0, nil) then
    begin
      MsgBox('下载GitHub文件失败', mbError, MB_OK);
      Abort;
    end;

    // 解压ZIP包到临时目录（Inno Setup默认支持ZIP解压）
    if not ExtractZip(TempZip, ExtractPath, False) then
    begin
      MsgBox('解压文件失败', mbError, MB_OK);
      Abort;
    end;

    // 复制目标文件到指定目录
    if not FileCopy(ExtractPath + '\file1.txt', TargetPath + '\file1.txt', False) then
    begin
      MsgBox('复制file1.txt失败', mbError, MB_OK);
      Abort;
    end;

    if not FileCopy(ExtractPath + '\file2.txt', TargetPath + '\file2.txt', False) then
    begin
      MsgBox('复制file2.txt失败', mbError, MB_OK);
      Abort;
    end;

    // 手动清理临时文件（可选，{tmp}目录会在安装完成后自动删除）
    DeleteFile(TempZip);
    RemoveDir(ExtractPath);
  end;
end;

方案2：解析[Setup]节的自定义变量 #

如果坚持要在[Setup]节定义变量，可通过ExpandConstant函数在脚本运行时解析获取值：

#define MyAppName "你的应用名称"

[Setup]
AppName={#MyAppName}
AppVersion=1.0
DefaultDirName={pf}\{#MyAppName}
MyVariable={userappdata}\MetaQuotes\Terminal\{#MyAppName}

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  GitHubZipURL, TempZip, ExtractPath, TargetPath: string;
begin
  if CurStep = ssPostInstall then
  begin
    // 解析[Setup]节的自定义变量
    TargetPath := ExpandConstant('{MyVariable}');
    
    // 后续下载、解压、复制逻辑同方案1，此处省略
  end;
end;

关键注意事项 #

• 步骤判断：必须在CurStep = ssPostInstall时执行文件操作，避免在安装过程中干扰其他流程
• 路径解析：所有包含系统常量（如{userappdata}、{tmp}）的路径，都需要用ExpandConstant解析为实际系统路径
• 错误处理：每个文件操作都要判断执行结果，失败时弹出提示并终止安装
• GitHub资源：确保下载链接是直接可访问的文件URL（比如仓库的ZIP包地址），私有仓库需额外处理认证逻辑

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