inno setup 安装之前卸载旧版本

最新推荐文章于 2024-07-18 19:15:02 发布

BBT去玩儿

最新推荐文章于 2024-07-18 19:15:02 发布

阅读量2k

点赞数

CC 4.0 BY-SA版权

分类专栏： inno setup 文章标签：安装之前卸载旧版本

本文链接：https://blog.youkuaiyun.com/BBT_Zqj/article/details/88847375

inno setup 专栏收录该内容

1 篇文章

订阅专栏

本文提供了一段用于自动卸载指定软件的代码，并清理了卸载后可能残留的文件夹。该代码通过注册表读取卸载字符串并执行静默卸载，最后删除指定的应用文件夹。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

[Code]
//卸载软件，红色部分需要修改，参考APPID
function InitializeSetup(): boolean;
var
ResultStr: String;
ResultCode: Integer;
begin
if RegQueryStringValue(HKLM, ‘SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall{7AB469CE-8A39-4AC5-9656-37AE61E6B1A2}_is1’, ‘UninstallString’, ResultStr) then
begin
ResultStr := RemoveQuotes(ResultStr);
Exec(ResultStr, ‘/silent’, ‘’, SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;
result := true;
end;

//删除卸载后的残余文件
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usDone then
begin
DelTree(ExpandConstant(’{app}’), True, True, True);
end;
end; 在这里插入图片描述