如何修改Inno Setup默认卸载程序代码以提前执行自定义脚本

当然可以！完全不用折腾修改默认卸载程序本身，Inno Setup早就为这种场景提供了现成的钩子机制，能让你精准控制卸载流程的执行顺序，刚好满足你要在注册表清理前删除外部文件的需求。

核心实现思路 #

Inno Setup的卸载流程有明确的步骤节点，我们可以通过CurUninstallStepChanged事件函数，在注册表清理开始前触发自定义的文件删除逻辑。这个事件会在卸载流程的每个步骤切换时被调用，我们只需要判断当前步骤是否是卸载操作的起始阶段，就能插入我们的脚本。

具体代码示例 #

在安装脚本的[Code]段中添加以下代码：

procedure CurUninstallStepChanged(CurStep: TUninstallStep);
var
  ExternalPath: string;
begin
  // 当卸载进入正式执行阶段（还未删除任何文件/注册表）时触发
  if CurStep = usUninstall then
  begin
    // 读取安装时保存的外部文件路径（建议安装时把用户选择的路径写入注册表）
    if RegQueryStringValue(HKLM, 'Software\YourApplicationName', 'ExternalDataPath', ExternalPath) then
    begin
      // 递归删除外部目录及所有内容
      if DirExists(ExternalPath) then
      begin
        DeleteDir(ExternalPath, True);
        // 顺便清理我们自己写入的注册表项
        RegDeleteValue(HKLM, 'Software\YourApplicationName', 'ExternalDataPath');
      end;
    end;

    // 也可以直接删除单个特定文件
    // DeleteFile('C:\Some\External\File.ext');
  end;
end;

配套的安装阶段处理（可选但推荐） #

如果外部路径是用户自定义选择的，记得在安装时把路径写入注册表，这样卸载时才能准确找到要删除的位置：

procedure CurStepChanged(CurStep: TSetupStep);
var
  UserSelectedPath: string;
begin
  // 在安装完成后写入注册表
  if CurStep = ssPostInstall then
  begin
    // 假设UserSelectedPath是用户在安装界面选择的外部路径
    UserSelectedPath := WizardForm.DirEdit.Text; // 替换为你实际获取路径的方式
    RegWriteStringValue(HKLM, 'Software\YourApplicationName', 'ExternalDataPath', UserSelectedPath);
  end;
end;

关键注意事项 #

• 执行时机精准：usUninstall阶段是卸载流程正式开始的第一个节点，此时还未执行任何默认的文件删除或注册表清理操作，完全符合你“在注册表清理前执行”的要求。
• 权限问题：确保卸载程序拥有足够权限删除外部文件，建议在[Setup]段设置PrivilegesRequired=admin，让卸载程序以管理员身份运行。
• 错误处理：如果需要，可以在删除逻辑中添加错误提示，比如用MsgBox告知用户删除失败的情况：

  if not DeleteDir(ExternalPath, True) then
  begin
    MsgBox('无法删除外部目录: ' + ExternalPath, mbError, MB_OK);
  end;
  

这种方式完全基于Inno Setup的官方扩展机制，不需要修改默认卸载程序的二进制文件，既安全又易于维护，完美解决你遇到的问题。

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