这个问题很常见——当主安装程序允许用户自定义安装路径后，补丁程序默认只会沿用DefaultDirName的预设值，自然找不到用户实际的安装位置。解决核心是让补丁程序从系统注册表中读取主安装程序留下的安装路径记录，而Inno Setup其实已经在主程序安装时自动写入了这个关键信息，我们只需要在补丁里正确读取即可。

步骤1：确认主程序的注册表记录（无需修改主程序） #

Inno Setup默认会在系统注册表的卸载信息节点中写入安装路径，具体位置分两种情况：

• 32位系统/64位系统上的64位程序：HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\My Program_is1
• 64位系统上的32位程序：HKLM\Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\My Program_is1
  其中InstallLocation键值就是用户实际选择的安装目录。

如果你的主程序设置了自定义AppId（比如AppId={12345678-1234-1234-1234-1234567890AB}），那么卸载注册表项的名称会替换为你的AppId值，而非My Program_is1，需要对应调整路径。

步骤2：修改补丁安装程序代码 #

修改补丁的[Setup]段，将DefaultDirName设置为从注册表读取上述路径，同时优化目录选择页的显示逻辑：

[Setup]
AppName=My Program
AppVersion=1.5.1 ; 补丁版本需高于主程序版本
DefaultDirName={reg:HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\My Program_is1,InstallLocation|HKLM\Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\My Program_is1,InstallLocation|{pf}\My Program}
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
Compression=lzma2
SolidCompression=yes
OutputDir = c:\test
OutputBaseFilename=update
DisableDirPage=auto ; 智能判断：能读取到注册表值就隐藏目录页，否则显示让用户手动选择

代码关键部分解释： #

• {reg:路径1,键值|路径2,键值|默认值}：这是Inno Setup的注册表读取语法，优先尝试读取第一个路径的键值，失败则尝试第二个，最后 fallback 到默认的{pf}\My Program，兼容32/64位系统场景
• DisableDirPage=auto：比No更灵活——当补丁能自动获取到有效安装路径时，直接跳过目录选择页提升体验；如果读取失败（比如用户未安装主程序、注册表被清理），再让用户手动选择目录，避免更新失败。

额外优化：验证安装目录有效性 #

如果需要更严谨的校验，可以在补丁的InitializeSetup事件函数中，验证读取到的目录是否存在主程序核心文件（比如MyProg.exe），若不存在则提示用户重新选择：

[Code]
function InitializeSetup(): Boolean;
var
  InstallPath: String;
begin
  Result := True;
  // 优先读取32位注册表路径
  InstallPath := GetRegistryStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\My Program_is1', 'InstallLocation');
  // 若读取失败，尝试64位系统上的32位程序路径
  if InstallPath = '' then
  begin
    InstallPath := GetRegistryStringValue(HKLM, 'Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\My Program_is1', 'InstallLocation');
  end;
  // 验证路径下是否存在主程序核心文件
  if (InstallPath <> '') and not FileExists(InstallPath + '\MyProg.exe') then
  begin
    MsgBox('未找到主程序的有效安装目录，请手动选择。', mbInformation, MB_OK);
    // 强制显示目录选择页
    WizardForm.DirPage.Visible := True;
  end;
end;

这样可以进一步避免补丁安装到错误目录，提升更新的可靠性。

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