blocks|key|1368895|text|给定AppId+(即，您在[Setup]-section中为AppID使用的值)后，您应该能够从注册表中读取卸载字符串。它可以在Software\Microsoft\Windows\CurrentVersion\Uninstall\{AppId}\+(可以是HKLM或HKCU，所以最好同时检查两者)下找到，其中{AppId}应替换为您使用的实际值。查找UninstallString或QuietUninstallString值，并使用Exec函数从InitializeSetup()事件函数运行它。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1368896|entityMap^0|D|7|U|5|1S|1O|3L|4|3Q|4|4C|7|4X|F|5D|K|62|4|69|H|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]|$9|K|A|L|B|C]|$9|M|A|N|B|C]|$9|O|A|P|B|C]|$9|Q|A|R|B|C]|$9|S|A|T|B|C]|$9|U|A|V|B|C]|$9|W|A|X|B|C]|$9|Y|A|Z|B|C]|$9|10|A|11|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|12|8|@]|D|@]|E|$]]]|G|$]]

You should be able to read the uninstall string from the registry, given the AppId (i.e. the value you used for <code>AppID</code> in the <code>[Setup]</code>-section). It could be found under <code>Software\Microsoft\Windows\CurrentVersion\Uninstall\{AppId}\</code> (could be either <code>HKLM</code> or <code>HKCU</code>, so best check both) where <code>{AppId}</code> should be substituted with the actual value you used. Look for the <code>UninstallString</code> or <code>QuietUninstallString</code> values and use the <code>Exec</code> function to run it from your <code>InitializeSetup()</code> event function.

blocks|key|1368976|text|使用Inno安装程序时，没有理由卸载以前的版本，除非该版本是由不同的安装程序安装的。否则，升级将自动处理。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1368977|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

When using Inno Setup, there's no reason to uninstall a previous version unless that version was installed by a different installer program. Otherwise upgrades are handled automatically.

blocks|key|1153984|text|您可以在代码部分中执行卸载程序。您必须弄清楚如何获得现有卸载程序的路径。为了简单起见，当我安装我的应用程序时，我添加了一个注册表字符串值，该值指向包含卸载程序的文件夹，并在InitializeWizard回调中执行卸载程序。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1153985|请记住，Inno+setup卸载程序的名称都是uninsnnn.exe格式，您需要在代码中考虑到这一点。|1153986|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|F|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|G|8|@]|9|@]|A|$]]|$1|D|3|-4|5|6|7|H|8|@]|9|@]|A|$]]]|E|$]]

You can exec an uninstaller in the [code] section. You have to figure out how to get the path to the existing uninstaller. For simplicity when I install my apps I add a registry string value that points to the folder containing the uninstaller, and just exec the uninstaller in the InitializeWizard callback.

Keep in mind that Inno setup uninstaller names are all of the form uninsnnn.exe, you need to take that into account in your code.

blocks|key|1154024|text|请访问以下链接：http://news.jrsoftware.org/news/innosetup/msg55323.html|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1154025|在InitializeSetup()函数中，您可以在用户提示后调用"MSIEXEC+/x+{您的程序ID}“来卸载旧版本|1154026|entityMap|0|LINK|mutability|MUTABLE|url|http://news.jrsoftware.org/news/innosetup/msg55323.html^0|8|1J|0|0|0^^$0|@$1|2|3|4|5|6|7|N|8|@]|9|@$A|O|B|P|1|Q]]|C|$]]|$1|D|3|E|5|6|7|R|8|@]|9|@]|C|$]]|$1|F|3|-4|5|6|7|S|8|@]|9|@]|C|$]]]|G|$H|$5|I|J|K|C|$L|M]]]]

Follow this link: <a href="http://news.jrsoftware.org/news/innosetup/msg55323.html" rel="nofollow">http://news.jrsoftware.org/news/innosetup/msg55323.html</a>

In InitializeSetup() function, you can call "MSIEXEC /x {your program ID}" after user prompt to uninstall old old version

blocks|key|1154072|text|对于任何使用上面建议的GetUninstallString()在CurStepChanged()中强制卸载并有磁盘缓存问题的人，请参阅下面的相关解决方案，该解决方案实际上在卸载后等待一段时间才能删除卸载程序exe！|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1154073|Disk+caching+issue+with+inno-setup?|1154074|entityMap|0|LINK|mutability|MUTABLE|url|https://stackoverflow.com/questions/18902060/disk-caching-issue-with-inno-setup^0|B|K|W|G|0|0|Z|0|0^^$0|@$1|2|3|4|5|6|7|P|8|@$9|Q|A|R|B|C]|$9|S|A|T|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|U|8|@]|D|@$9|V|A|W|1|X]]|E|$]]|$1|H|3|-4|5|6|7|Y|8|@]|D|@]|E|$]]]|I|$J|$5|K|L|M|E|$N|O]]]]

For anyone that uses the <code>GetUninstallString()</code> suggested above to force an uninstall inside <code>CurStepChanged()</code> and has disk caching issues, see below for a related solution that actually waits a while after unistallation for the uninstaller exe to be deleted!
<a href="https://stackoverflow.com/questions/18902060/disk-caching-issue-with-inno-setup">Disk caching issue with inno-setup?</a>

blocks|key|1154134|text|我得到了编辑过的@Crain+Mc-Queen代码，我认为这个代码更好，因为不需要在不同的项目中修改：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1154135|[Code]
function+GetNumber(var+temp:+String):+Integer;
var
++part:+String;
++pos1:+Integer;
begin
++if+Length(temp)+=+0+then
++begin
++++Result+:=+-1;
++++Exit;
++end;
++++pos1+:=+Pos('.',+temp);
++++if+(pos1+=+0)+then
++++begin
++++++Result+:=+StrToInt(temp);
++++temp+:=+'';
++++end
++++else
++++begin
++++part+:=+Copy(temp,+1,+pos1+-+1);
++++++temp+:=+Copy(temp,+pos1+%2B+1,+Length(temp));
++++++Result+:=+StrToInt(part);
++++end;
end;

function+CompareInner(var+temp1,+temp2:+String):+Integer;
var
++num1,+num2:+Integer;
begin
++++num1+:=+GetNumber(temp1);
++num2+:=+GetNumber(temp2);
++if+(num1+=+-1)+or+(num2+=+-1)+then
++begin
++++Result+:=+0;
++++Exit;
++end;
++++++if+(num1+>+num2)+then
++++++begin
++++++++Result+:=+1;
++++++end
++++++else+if+(num1+<+num2)+then
++++++begin
++++++++Result+:=+-1;
++++++end
++++++else
++++++begin
++++++++Result+:=+CompareInner(temp1,+temp2);
++++++end;
end;

function+CompareVersion(str1,+str2:+String):+Integer;
var
++temp1,+temp2:+String;
begin
++++temp1+:=+str1;
++++temp2+:=+str2;
++++Result+:=+CompareInner(temp1,+temp2);
end;

function+InitializeSetup():+Boolean;
var
++oldVersion:+String;
++uninstaller:+String;
++ErrorCode:+Integer;
++vCurID++++++:String;
++vCurAppName+:String;
begin
++vCurID:=+'{#SetupSetting("AppId")}';
++vCurAppName:=+'{#SetupSetting("AppName")}';
++//remove+first+"{"+of+ID
++vCurID:=+Copy(vCurID,+2,+Length(vCurID)+-+1);
++//
++if+RegKeyExists(HKEY_LOCAL_MACHINE,
++++'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+%2B+vCurID+%2B+'_is1')+then
++begin
++++RegQueryStringValue(HKEY_LOCAL_MACHINE,
++++++'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+%2B+vCurID+%2B+'_is1',
++++++'DisplayVersion',+oldVersion);
++++if+(CompareVersion(oldVersion,+'{#SetupSetting("AppVersion")}')+<+0)+then++++++
++++begin
++++++if+MsgBox('Version+'+%2B+oldVersion+%2B+'+of+'+%2B+vCurAppName+%2B+'+is+already+installed.+Continue+to+use+this+old+version?',
++++++++mbConfirmation,+MB_YESNO)+=+IDYES+then
++++++begin
++++++++Result+:=+False;
++++++end
++++++else
++++++begin
++++++++++RegQueryStringValue(HKEY_LOCAL_MACHINE,
++++++++++++'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+%2B+vCurID+%2B+'_is1',
++++++++++++'UninstallString',+uninstaller);
++++++++++ShellExec('runas',+uninstaller,+'/SILENT',+'',+SW_HIDE,+ewWaitUntilTerminated,+ErrorCode);
++++++++++Result+:=+True;
++++++end;
++++end
++++else
++++begin
++++++MsgBox('Version+'+%2B+oldVersion+%2B+'+of+'+%2B+vCurAppName+%2B+'+is+already+installed.+This+installer+will+exit.',
++++++++mbInformation,+MB_OK);
++++++Result+:=+False;
++++end;
++end
++else
++begin
++++Result+:=+True;
++end;
end;|code-block|syntax|javascript|1154136|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

i got edited @Crain Mc-Queen code , i think this code is better because not need to modified in different project :

<pre><code>[Code]
function GetNumber(var temp: String): Integer;
var
 part: String;
 pos1: Integer;
begin
 if Length(temp) = 0 then
 begin
 Result := -1;
 Exit;
 end;
 pos1 := Pos('.', temp);
 if (pos1 = 0) then
 begin
 Result := StrToInt(temp);
 temp := '';
 end
 else
 begin
 part := Copy(temp, 1, pos1 - 1);
 temp := Copy(temp, pos1 + 1, Length(temp));
 Result := StrToInt(part);
 end;
end;

function CompareInner(var temp1, temp2: String): Integer;
var
 num1, num2: Integer;
begin
 num1 := GetNumber(temp1);
 num2 := GetNumber(temp2);
 if (num1 = -1) or (num2 = -1) then
 begin
 Result := 0;
 Exit;
 end;
 if (num1 &gt; num2) then
 begin
 Result := 1;
 end
 else if (num1 &lt; num2) then
 begin
 Result := -1;
 end
 else
 begin
 Result := CompareInner(temp1, temp2);
 end;
end;

function CompareVersion(str1, str2: String): Integer;
var
 temp1, temp2: String;
begin
 temp1 := str1;
 temp2 := str2;
 Result := CompareInner(temp1, temp2);
end;

function InitializeSetup(): Boolean;
var
 oldVersion: String;
 uninstaller: String;
 ErrorCode: Integer;
 vCurID :String;
 vCurAppName :String;
begin
 vCurID:= '{#SetupSetting("AppId")}';
 vCurAppName:= '{#SetupSetting("AppName")}';
 //remove first "{" of ID
 vCurID:= Copy(vCurID, 2, Length(vCurID) - 1);
 //
 if RegKeyExists(HKEY_LOCAL_MACHINE,
 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + vCurID + '_is1') then
 begin
 RegQueryStringValue(HKEY_LOCAL_MACHINE,
 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + vCurID + '_is1',
 'DisplayVersion', oldVersion);
 if (CompareVersion(oldVersion, '{#SetupSetting("AppVersion")}') &lt; 0) then 
 begin
 if MsgBox('Version ' + oldVersion + ' of ' + vCurAppName + ' is already installed. Continue to use this old version?',
 mbConfirmation, MB_YESNO) = IDYES then
 begin
 Result := False;
 end
 else
 begin
 RegQueryStringValue(HKEY_LOCAL_MACHINE,
 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + vCurID + '_is1',
 'UninstallString', uninstaller);
 ShellExec('runas', uninstaller, '/SILENT', '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
 Result := True;
 end;
 end
 else
 begin
 MsgBox('Version ' + oldVersion + ' of ' + vCurAppName + ' is already installed. This installer will exit.',
 mbInformation, MB_OK);
 Result := False;
 end;
 end
 else
 begin
 Result := True;
 end;
end;
</code></pre>

blocks|key|1154176|text|如果你“只想删除旧图标”(因为你的图标已经改变/更新了)，你可以使用：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1154177|;+attempt+to+remove+previous+versions'+icons
[InstallDelete]
Type:+filesandordirs;+Name:+{group}\*;|code-block|syntax|javascript|1154178|这是在“安装开始时”运行的，所以基本上会删除旧图标，并且在完成此操作后，您的新图标仍将安装在那里。|1154179|我只是在每次安装“以防有任何改变”图标时都这样做(无论如何都会重新安装)。|1154180|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|P|8|@]|9|@]|A|$]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

If you "just want to remove the old icons" (because yours have changed/updated) you can use this:

<pre><code>; attempt to remove previous versions' icons
[InstallDelete]
Type: filesandordirs; Name: {group}\*;
</code></pre>

This is run "at the beginning of installation" so basically removes the old icons, and your new ones will still be installed there after this is completely done.

I just do this with every install "in case anything has changed" icon wise (it all gets reinstalled anyway).

blocks|key|1369329|text|对于那些感兴趣的人，我为Inno+setup6和更高版本编写了一个DLL，它提供了一种简单的机制来支持自动卸载。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1369330|DLL提供了一种方法来检测您正在安装的软件包是否已经安装(通过AppId)，并根据安装的版本决定是否要自动卸载它(例如，如果用户降级，您可能希望自动卸载)。|offset|length|style|CODE|1369331|https://github.com/Bill-Stewart/UninsIS|1369332|entityMap|0|LINK|mutability|MUTABLE|url^0|0|V|5|0|0|13|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|R|8|@$D|S|E|T|F|G]]|9|@]|A|$]]|$1|H|3|I|5|6|7|U|8|@]|9|@$D|V|E|W|1|X]]|A|$]]|$1|J|3|-4|5|6|7|Y|8|@]|9|@]|A|$]]]|K|$L|$5|M|N|O|A|$P|I]]]]

For those interested, I wrote a DLL for Inno Setup 6 and later that provides a simple mechanism for supporting automatic uninstall.
The DLL provides a way to detect if the package you are installing is already installed (via <code>AppId</code>) and to decide, based on the installed version, if you want to automatically uninstall it (for example, you might want to automatically uninstall if user is downgrading).
<a href="https://github.com/Bill-Stewart/UninsIS" rel="nofollow noreferrer">https://github.com/Bill-Stewart/UninsIS</a>

blocks|key|1154296|text|这是一个基于answer+from+Craig+McQueen的简化版本|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1154297|const
++++UninstallRegisterPath+=+'Software\Microsoft\Windows\CurrentVersion\Uninstall\'+%2B+'{#emit+SetupSetting("AppName")}'+%2B+'_is1';

function+GetUninstallerPath():+String;
begin
++++result+:=+'';
++++if+(not+RegQueryStringValue(HKLM,+UninstallRegisterPath,+'UninstallString',+result))+then
++++++++RegQueryStringValue(HKCU,+UninstallRegisterPath,+'UninstallString',+result);
end;

procedure+UninstallOldVersion();
var
++++UninstallerPath:+String;
++++ResultCode:+Integer;
begin
++++UninstallerPath+:=+GetUninstallerPath();
++++if+(UninstallerPath+<>+'')+then+begin
++++++++Exec(UninstallerPath,+'/VERYSILENT+/NORESTART+/SUPPRESSMSGBOXES',+'',+SW_HIDE,+ewWaitUntilTerminated,+ResultCode);
++++end;
end;

procedure+CurStepChanged(CurStep:+TSetupStep);
begin
++++if+(CurStep+=+ssInstall)+then
++++begin
++++++++UninstallOldVersion();
++++end;
end;|code-block|syntax|javascript|1154298|注意:在我的例子中，我使用AppName而不是AppId。|style|CODE|1154299|entityMap|0|LINK|mutability|MUTABLE|url|https://stackoverflow.com/a/2099805/1180868^0|6|P|0|0|0|D|7|N|5|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@$A|V|B|W|1|X]]|C|$]]|$1|D|3|E|5|F|7|Y|8|@]|9|@]|C|$G|H]]|$1|I|3|J|5|6|7|Z|8|@$A|10|B|11|K|L]|$A|12|B|13|K|L]]|9|@]|C|$]]|$1|M|3|-4|5|6|7|14|8|@]|9|@]|C|$]]]|N|$O|$5|P|Q|R|C|$S|T]]]]

Here is a simplified version based on <a href="https://stackoverflow.com/a/2099805/1180868">answer from Craig McQueen</a>:
<pre><code>const
 UninstallRegisterPath = 'Software\Microsoft\Windows\CurrentVersion\Uninstall\' + '{#emit SetupSetting(&quot;AppName&quot;)}' + '_is1';

function GetUninstallerPath(): String;
begin
 result := '';
 if (not RegQueryStringValue(HKLM, UninstallRegisterPath, 'UninstallString', result)) then
 RegQueryStringValue(HKCU, UninstallRegisterPath, 'UninstallString', result);
end;

procedure UninstallOldVersion();
var
 UninstallerPath: String;
 ResultCode: Integer;
begin
 UninstallerPath := GetUninstallerPath();
 if (UninstallerPath &lt;&gt; '') then begin
 Exec(UninstallerPath, '/VERYSILENT /NORESTART /SUPPRESSMSGBOXES', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
 end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
 if (CurStep = ssInstall) then
 begin
 UninstallOldVersion();
 end;
end;
</code></pre>
Note: in my case, I use <code>AppName</code> instead of <code>AppId</code>.

I'm using Inno Setup to create an installer.

I want the installer to automatically uninstall the previous installed version, instead of overwriting it. How can I do that?

Inno Setup: How to automatically uninstall previous installed version?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我正在使用Inno Setup创建一个安装程序。我希望安装程序自动卸载以前安装的版本，而不是覆盖它。我该怎么做呢？

问Inno Setup:如何自动卸载以前安装的版本？
EN

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Inno Setup:如何自动卸载以前安装的版本？EN

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Inno Setup:如何自动卸载以前安装的版本？
EN