业务场景:有次客户反馈说,卸载应用程序没有卸载干净,安装目录下残留很多文件,特别是一些配置文件和数据库文件,涉及到一些数据安全机密。卸载程序应该把安装目录都要清除。操作如下:
卸载应用程序,删除整个安装目录
在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;
看到这里啦,是不是得一键三连丫~~