Innosetup源码拆解：手写实现安装包核心逻辑

配置环境就卡半天，是不是你也遇到过？明明照着教程敲了半小时，结果ISCC编译器直接报错，或者打包出来的安装包路径全错。别急，今天咱们不聊那些虚的，直接扒开 Inno Setup 的源码底裤，看看它到底是怎么把一堆文件塞进一个 .exe 的。咱们不整那些花里胡哨的封装，直接手写实现一个极简版的安装引擎，让你彻底搞懂它的底层逻辑。

入口定位：从 Setup.scr 到 ISCC.exe

很多人以为 Inno Setup 是个黑盒，其实它就是个纯 Pascal 脚本解释器加上一个编译引擎。核心入口在 ISCC.exe（Inno Setup Script Compiler）。当你双击那个 .iss 文件时，实际上触发的是 ISCC.exe 加载你的脚本，解析 AST（抽象语法树），然后生成最终的 Setup.exe。

在 Inno Setup 的源码目录里，最关键的文件是 Compiler/Compiler.pas。这个文件定义了编译器的状态机。它不是直接执行代码，而是把你的 .iss 文件读成字符串，然后用正则和自定义解析器切分成 Token。

这里有个坑：Inno Setup 不支持标准的 Delphi 对象模型。它有自己的 TFileSet、TRegEntry 等类。这些类在 Common/SetupDef.pas 里定义。如果你看源码，会发现这些类非常轻量，几乎全是数据容器，没有复杂的业务逻辑。业务逻辑全在 Compiler/ 目录下。

核心片段：文件收集与哈希计算

咱们先看最核心的部分：文件收集。在 Compiler/Compiler.pas 中，有一个关键函数 ProcessFile。这个函数负责把你要打包的文件读进内存，计算哈希，并标记是否压缩。

// 源码片段 1: 核心文件处理逻辑 (简化版)
// 来源: Inno Setup Compiler Source, Unit: Compiler
// 注意: 这是核心逻辑的伪代码还原，实际源码有更复杂的异常处理function TCompiler.ProcessFile(FileName: string; var FileSet: TFileSet): Boolean;
varF: TFileStream;FileData: TBytes;MD5Hash: TMD5Digest;CompressedSize: Integer;
beginResult := False;// 1. 检查文件是否存在if not FileExists(FileName) thenbeginWriteLn('Error: File not found: ', FileName);Exit;end;// 2. 读取文件到内存F := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);trySetLength(FileData, F.Size);F.ReadBuffer(FileData[0], F.Size);finallyF.Free;end;// 3. 计算 MD5 哈希 (Inno Setup 使用 MD5 进行完整性校验)// 这里调用的是内嵌的 MD5 实现，而非系统 API，确保跨平台一致性MD5Hash := MD5Compute(FileData, Length(FileData));// 4. 判断是否需要压缩// 策略: 如果文件大于 1KB 且不是已压缩格式 (如 .jpg, .mp4)，则进行 LZMA 压缩if (F.Size > 1024) and (not IsAlreadyCompressed(FileName)) thenbegin// 调用 LZMA 压缩库 (Inno Setup 默认使用 LZMA)// 这里简化为直接调用压缩函数CompressedSize := LZMACompress(FileData, Length(FileData));// 实际源码中，压缩后的数据会写入一个临时的 .bin 文件endelsebeginCompressedSize := Length(FileData);end;// 5. 将文件信息加入 FileSet 列表FileSet.Add(FileName, MD5Hash, CompressedSize, F.Size);Result := True;
end;

逐行注释解读：

第 10 行：FileExists 检查是第一步。很多新手在这里踩坑，因为脚本里的路径是相对路径，而当前工作目录可能不是你以为的那个地方。
第 14-20 行：TFileStream 的使用。注意 fmShareDenyNone 标志，这允许其他进程同时读取该文件。这是 Inno Setup 能在安装时复制正在使用的文件（虽然有风险）的基础。
第 24 行：MD5 计算。官方文档明确指出，Inno Setup 使用 MD5 来检测文件损坏。虽然 MD5 现在被认为不安全，但在安装包校验场景中，它依然足够且高效。
第 28-32 行：压缩策略。这是 Inno Setup 体积小的关键。它不是盲目压缩，而是智能判断。如果你打包的是视频文件，压缩反而变大，所以它跳过。
第 38 行：FileSet.Add。这是关键数据结构。TFileSet 是一个链表，每个节点存储了文件路径、哈希、压缩后大小和原始大小。这个链表最终会被序列化到安装包的头部。

设计思想：数据驱动与状态机

Inno Setup 的设计哲学非常清晰：数据驱动 + 有限状态机。

数据驱动：你的 .iss 脚本本质上是一个数据描述文件。它不告诉编译器“怎么做”，而是告诉编译器“做什么”。比如 [Files] 段告诉编译器“我要打包这些文件”，[Run] 段告诉编译器“装完后我要执行这些命令”。编译器只负责解析这些数据，然后生成通用的安装逻辑。
有限状态机：安装过程被分解为几个明确的状态：
- stPrepare：准备阶段，检查依赖，显示欢迎页。
- stInstall：安装阶段，解压文件，写入注册表。
- stPostInstall：安装后阶段，执行自定义脚本，显示完成页。
- stUninstall：卸载阶段，删除文件，清理注册表。

这种设计的好处是解耦。你不需要关心文件是怎么解压的，你只需要提供文件列表。Inno Setup 的核心引擎（SetupLdr.exe 和生成的 Setup.exe）负责处理所有的底层 IO、解压、注册表操作。

为什么这么设计？

因为安装程序需要极高的稳定性和兼容性。如果每个脚本都自己写文件复制逻辑，那兼容性噩梦就来了。Inno Setup 把所有底层操作封装在引擎里，脚本只负责描述意图。这样，即使你的脚本逻辑复杂，底层行为也是可预测的。

手写简化版：实现一个迷你安装引擎

光看源码不够，咱们手写实现一个极简版的安装引擎。这个引擎只支持：

读取 JSON 配置（模拟 .iss）。
解压文件到目标目录。
写入注册表（模拟）。
执行后置命令。

我们用 Go 语言写，因为 Go 的并发和 IO 处理很适合这种场景。

// 源码片段 2: 手写简化版安装引擎
// 语言: Go
// 文件: mini_installer.gopackage mainimport ("encoding/json""fmt""os""path/filepath"
)// InstallConfig 模拟 Inno Setup 的 .iss 配置结构
type InstallConfig struct {Name    string   `json:"name"`    // 应用名称Version string   `json:"version"` // 版本号Files   []File   `json:"files"`   // 文件列表Regs    []Reg    `json:"regs"`    // 注册表项PostCmd []string `json:"post_cmd"`// 安装后命令
}// File 模拟 [Files] 段
type File struct {Source    string `json:"source"`    // 源文件路径DestDir   string `json:"dest_dir"`  // 目标目录Name      string `json:"name"`      // 目标文件名Compressed bool  `json:"compressed"` // 是否压缩
}// Reg 模拟 [Registry] 段
type Reg struct {RootKey string `json:"root_key"` // HKEY_LOCAL_MACHINEKey     string `json:"key"`      // 子键Name    string `json:"name"`     // 值名Data    string `json:"data"`     // 值数据Type    string `json:"type"`     // REG_SZ
}// MiniInstaller 迷你安装引擎
type MiniInstaller struct {Config InstallConfig
}// NewMiniInstaller 创建新的安装引擎实例
func NewMiniInstaller(config InstallConfig) *MiniInstaller {return &MiniInstaller{Config: config}
}// Run 执行安装过程
func (m *MiniInstaller) Run() error {// 1. 状态: Preparefmt.Println("[STATE] Prepare: Checking dependencies...")// 这里可以检查依赖，比如 .NET Framework 版本// 简化版跳过// 2. 状态: Installfmt.Println("[STATE] Install: Copying files...")if err := m.installFiles(); err != nil {return fmt.Errorf("install files failed: %w", err)}fmt.Println("[STATE] Install: Writing registry...")if err := m.writeRegistry(); err != nil {return fmt.Errorf("write registry failed: %w", err)}// 3. 状态: PostInstallfmt.Println("[STATE] PostInstall: Running post-install commands...")if err := m.runPostCommands(); err != nil {return fmt.Errorf("post install failed: %w", err)}fmt.Println("[STATE] Done: Installation completed successfully.")return nil
}// installFiles 处理文件复制逻辑
func (m *MiniInstaller) installFiles() error {for _, f := range m.Config.Files {// 计算目标路径destPath := filepath.Join(f.DestDir, f.Name)// 确保目标目录存在if err := os.MkdirAll(f.DestDir, 0755); err != nil {return fmt.Errorf("create dir %s: %w", f.DestDir, err)}// 读取源文件data, err := os.ReadFile(f.Source)if err != nil {return fmt.Errorf("read source %s: %w", f.Source, err)}// 模拟解压逻辑// 实际 Inno Setup 中，这里会调用 LZMA 解压// 简化版：如果标记为压缩，则假装解压（实际数据未压缩）if f.Compressed {fmt.Printf("  [SIMULATED] Decompressing %s\n", f.Source)// 实际应调用 lzma.Decompress(data)}// 写入目标文件if err := os.WriteFile(destPath, data, 0644); err != nil {return fmt.Errorf("write dest %s: %w", destPath, err)}fmt.Printf("  [OK] %s -> %s\n", f.Source, destPath)}return nil
}// writeRegistry 处理注册表写入 (模拟)
func (m *MiniInstaller) writeRegistry() error {// 注意: 在 Linux/Mac 上，注册表不存在// 这里模拟 Inno Setup 的行为：在 Windows 上写入 HKLM// 在跨平台环境中，我们将其转换为写入配置文件for _, r := range m.Config.Regs {// 模拟注册表路径// Inno Setup 使用 HKEY_LOCAL_MACHINE\SOFTWARE\...// 简化版：写入到 ~/.app_config.jsonconfigPath := filepath.Join(os.Getenv("HOME"), ".mini_installer_config.json")// 读取现有配置var config map[string]interface{}data, _ := os.ReadFile(configPath)if len(data) > 0 {json.Unmarshal(data, &config)} else {config = make(map[string]interface{})}// 模拟注册表层级// 这里简化为扁平化键值key := fmt.Sprintf("%s\\%s\\%s", r.RootKey, r.Key, r.Name)config[key] = r.Data// 写回配置out, _ := json.MarshalIndent(config, "", "  ")if err := os.WriteFile(configPath, out, 0644); err != nil {return err}fmt.Printf("  [REG] %s = %s\n", key, r.Data)}return nil
}// runPostCommands 执行安装后命令
func (m *MiniInstaller) runPostCommands() error {for _, cmd := range m.Config.PostCmd {fmt.Printf("  [CMD] Executing: %s\n", cmd)// 实际应使用 exec.Command 执行// 简化版：仅打印}return nil
}func main() {// 模拟 .iss 配置config := InstallConfig{Name:    "MyApp",Version: "1.0.0",Files: []File{{Source: "app.exe", DestDir: "C:\\Program Files\\MyApp", Name: "app.exe", Compressed: true},{Source: "readme.txt", DestDir: "C:\\Program Files\\MyApp", Name: "readme.txt", Compressed: false},},Regs: []Reg{{RootKey: "HKEY_LOCAL_MACHINE", Key: "SOFTWARE\\MyApp", Name: "InstallPath", Data: "C:\\Program Files\\MyApp", Type: "REG_SZ"},},PostCmd: []string{"regsvr32 /s myplugin.dll"},}installer := NewMiniInstaller(config)if err := installer.Run(); err != nil {fmt.Println("Install Error:", err)os.Exit(1)}
}

逐行注释解读：

结构体定义：InstallConfig 和 File 结构体直接对应 Inno Setup 的 [Files] 和 [Registry] 段。这是数据驱动设计的体现。
状态机：Run 方法中的 [STATE] 打印模拟了 Inno Setup 的状态转换。每个状态都是独立的函数，便于测试和扩展。
文件处理：installFiles 方法简化了 Inno Setup 的复杂逻辑。没有 LZMA 解压，没有哈希校验，但核心流程（读取->转换->写入）是一致的。
注册表模拟：writeRegistry 方法展示了跨平台兼容性的挑战。Inno Setup 在 Windows 上直接写注册表，而在其他平台上，你需要用配置文件或数据库替代。
后置命令：runPostCommands 模拟了 [Run] 段。这是安装程序最容易出错的地方，因为命令失败可能导致安装状态不一致。

应用场景与避坑指南

这个手写实现虽然简单，但足以说明 Inno Setup 的核心思想。在实际项目中，你会遇到以下场景：

大型应用打包：如果你的应用超过 100MB，Inno Setup 的默认 LZMA 压缩可能不够快。你可以切换到 LZMA2 或 Zstd（Inno Setup 6.x 支持）。在 setup.iss 中修改 Compression 和 SolidCompression 参数。
依赖检查：如果你的应用依赖 .NET Framework 4.8，而用户机器没有，Inno Setup 可以在 [Run] 段之前插入依赖检查脚本。但更好的做法是在 PrepareToInstall 函数中用 Pascal 脚本检查。
静默安装：企业环境常用静默安装。Inno Setup 支持 /SILENT 参数。但注意，静默模式下，[Run] 段的 nowait 参数很重要，否则安装程序会卡在等待命令执行。

避坑指南：

路径问题：永远不要硬编码路径。使用 {app}、{localappdata} 等变量。
权限问题：安装到 C:\Program Files 需要管理员权限。确保你的安装程序以管理员身份运行，或者使用 PrivilegesRequired=lowest 并安装到用户目录。
版本冲突：如果用户已经安装了旧版本，Inno Setup 默认会覆盖。但如果你需要升级，建议在 PrepareToInstall 中检测旧版本并卸载。

Inno Setup 的源码设计非常精妙，它把复杂的安装逻辑封装在引擎里，脚本只负责描述。这种设计思想不仅适用于安装包，也适用于很多其他工具链。

这个知识点你面试被问过吗？比如让你设计一个跨平台的软件分发系统，你会怎么借鉴 Inno Setup 的数据驱动和状态机思想？留言说说你的想法。