Inno Setup 安装前卸载原程序

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

转载最新推荐文章于 2024-07-18 19:15:02 发布 · 1.1w 阅读

Install Setup 专栏收录该内容

51 篇文章

订阅专栏

本文介绍了一种在安装新版本程序前静默卸载旧版本的方法。通过读取注册表中的'UninstallString'项来获取卸载指令，并使用Exec函数实现静默卸载过程。

很多時候我們需要在安裝文件之前卸載原有的程序而不是覆蓋安裝，本文的code就是實現了這樣的功能。

實現原理是：從注冊表'UninstallString'項中讀取卸載信息，用Exec進行靜默卸載。

下面code中APP_NAME為你的程序名，可以去注冊表中確認。

function InitializeSetup(): boolean;
var
ResultStr: String;
ResultCode: Integer;
begin
if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\APP_NAME_is1', 'UninstallString', ResultStr) then
begin
ResultStr := RemoveQuotes(ResultStr);
Exec(ResultStr, '/silent', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;
result := true;
end;