inno setup 卸载程序 删除整个安装目录

业务场景：有次客户反馈说，卸载应用程序没有卸载干净，安装目录下残留很多文件，特别是一些配置文件和数据库文件，涉及到一些数据安全机密。卸载程序应该把安装目录都要清除。操作如下：

卸载应用程序，删除整个安装目录

在iss脚本文件增加如下代码：

[Code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  InstallDir: String;
begin
  // 获取安装目录
  InstallDir := ExpandConstant('{app}');

  case CurUninstallStep of
    usUninstall:
      begin
        // 如果安装目录存在，则删除整个目录及其内容
        if DirExists(InstallDir) then
          DelTree(InstallDir, True, True, True);

        // 删除安装根目录
        RemoveDir(ExtractFileDir(InstallDir));
      end;
  end;
end;

看到这里啦，是不是得一键三连丫~~