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

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

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

在iss脚本文件增加如下代码：[Code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
varInstallDir: String;
begin// 获取安装目录InstallDir := ExpandConstant('{app}');case CurUninstallStep ofusUninstall:begin// 如果安装目录存在，则删除整个目录及其内容if DirExists(InstallDir) thenDelTree(InstallDir, True, True, True);// 删除安装根目录RemoveDir(ExtractFileDir(InstallDir));end;end;
end;

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