pascal-揭秘 Inno Setup 终极扩展：InnoTools-Downloader 插件实战指南，如何在不增加安装包体积的前提下实现远程资源动态下载与安装

icy 昨天 10 抢沙发

默认

摘要： 引言：打破安装包的体积限制在 Windows 软件分发领域，Inno Setup 凭借其轻量、强大且免费的特点，成为了众多开发者的首选打包工具。然而，随着软件功能的日益复杂，依赖...

引言：打破安装包的体积限制

在 Windows 软件分发领域，Inno Setup 凭借其轻量、强大且免费的特点，成为了众多开发者的首选打包工具。然而，随着软件功能的日益复杂，依赖库、资源文件以及运行时环境的体积不断膨胀，导致安装包越来越大。巨大的安装包不仅增加了服务器的带宽成本，还降低了用户的下载意愿，尤其是在网络环境不佳的情况下。

为了解决这一痛点，InnoTools-Downloader 应运而生。这是一个专为 Inno Setup 设计的插件项目，由开发者 thenickdude 维护。它允许安装程序在运行时动态地从远程服务器下载所需的文件，从而实现“按需加载”。通过使用该工具，开发者可以将核心安装逻辑与大型资源文件分离，显著减小初始安装包的体积，同时保持用户体验的流畅性。

项目概述与核心优势

InnoTools-Downloader 本质上是一个集成到 Inno Setup 编译器中的 Pascal 脚本库。它封装了底层的网络请求逻辑，提供了简洁的 API 供安装脚本调用。与传统的先下载后安装模式不同，该插件将下载过程无缝嵌入到安装向导中，用户无需感知额外的下载步骤。

其核心优势体现在以下几个方面：

极简集成：无需编写复杂的 WinInet 或 WinHTTP 调用代码，只需引入少量文件即可使用。
进度可视化：原生支持下载进度条更新，能够实时反馈网络状态，避免用户误以为程序无响应。
灵活配置：支持自定义超时时间、用户代理（User-Agent）以及重试机制。
兼容性强：适用于 Windows XP 及更高版本，兼容 32 位与 64 位安装程序。

环境配置与集成步骤

要在项目中启用下载功能，首先需要获取源代码。访问项目的 GitHub 仓库页面，下载最新的 release 版本或克隆源代码仓库。将下载到的 .pas 文件（通常是 InnoTools-Downloader.pas 及其依赖文件）复制到 Inno Setup 项目的脚本同一目录下。

随后，在 Inno Setup 脚本的 [Code] 部分引入该单元。确保脚本编译器版本支持 Pascal 脚本扩展。典型的引入方式如下：

text

[Code]
uses
  InnoTools-Downloader;

部分版本可能需要手动包含文件，具体需参考仓库中的 README 说明。确保所有依赖文件路径正确，避免编译错误。

基础代码实例：实现简单文件下载

集成完成后，即可在安装过程中调用下载函数。以下是一个最基础的示例，演示如何在安装初始化阶段下载一个配置文件。

text

function InitializeSetup(): Boolean;
var
  DownloadPath: String;
  Url: String;
begin
  Url := 'https://example.com/config.ini';
  DownloadPath := ExpandConstant('{tmp}\config.ini');

  // 调用下载函数，阻塞直到完成
  if DownloadFile(Url, DownloadPath) then
  begin
    Log('配置文件下载成功');
    Result := True;
  end
  else
  begin
    Log('配置文件下载失败，终止安装');
    Result := False;
  end;
end;

在此示例中，DownloadFile 是插件提供的核心函数。它接收 URL 和目标路径，返回布尔值表示成功与否。利用 {tmp} 常量可以将文件下载到临时目录，待安装结束后再移动到正式目录。

进阶实例：带进度条与取消功能

为了提升用户体验，长时间的网络操作必须提供进度反馈。InnoTools-Downloader 支持回调函数，允许开发者更新安装向导的进度条。

text

var
  DownloadPage: TDownloadWizardPage;

procedure InitializeWizard();
begin
  // 创建下载进度页面
  DownloadPage := CreateDownloadPage(SetupMessage(msgWizardPreparing), SetupMessage(msgPleaseWait), nil);
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
  Url: String;
  SavePath: String;
begin
  Result := True;

  if CurPageID = wpWelcome then
  begin
    Url := 'https://example.com/large_resource.zip';
    SavePath := ExpandConstant('{app}\data.zip');

    DownloadPage.Clear;
    DownloadPage.Add(Url, SavePath, '');
    DownloadPage.Show;

    try
      DownloadPage.Download;
    except
      if MsgBox('下载失败，是否重试？', mbError, MB_YESNO) = IDNO then
        Result := False;
    end;

    DownloadPage.Hide;
  end;
end;

这段代码展示了如何在欢迎页面点击“下一步”时触发下载。TDownloadWizardPage 对象管理着下载队列和界面显示。通过 try...except 块捕获潜在的网络异常，确保安装程序不会意外崩溃。