我正在使用Inno Setup创建安装程序。
我希望安装程序自动卸载以前安装的版本，而不是覆盖它。我怎么能这样做？
答案 0 :(得分：101)
我使用了以下内容。我不确定这是最简单的方法，但它有效。
这使用依赖于Inno Setup Preprocessor的{#emit SetupSetting("AppId")}。如果您不使用它，请直接剪切并粘贴您的App ID。
[Code]
/////////////////////////////////////////////////////////////////////
function GetUninstallString(): String;
var
sUnInstPath: String;
sUnInstallString: String;
begin
sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\{#emit SetupSetting("AppId")}_is1');
sUnInstallString := '';
if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then
RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);
Result := sUnInstallString;
end;
/////////////////////////////////////////////////////////////////////
function IsUpgrade(): Boolean;
begin
Result := (GetUninstallString() <> '');
end;
/////////////////////////////////////////////////////////////////////
function UnInstallOldVersion(): Integer;
var
sUnInstallString: String;
iResultCode: Integer;
begin
// Return Values:
// 1 - uninstall string is empty
// 2 - error executing the UnInstallString
// 3 - successfully executed the UnInstallString
// default return value
Result := 0;
// get the uninstall string of the old app
sUnInstallString := GetUninstallString();
if sUnInstallString <> '' then begin
sUnInstallString := RemoveQuotes(sUnInstallString);
if Exec(sUnInstallString, '/SILENT /NORESTART /SUPPRESSMSGBOXES','', SW_HIDE, ewWaitUntilTerminated, iResultCode) then
Result := 3
else
Result := 2;
end else
Result := 1;
end;
/////////////////////////////////////////////////////////////////////
procedure CurStepChanged(CurStep: TSetupStep);
begin
if (CurStep=ssInstall) then
begin
if (IsUpgrade()) then
begin
UnInstallOldVersion();
end;
end;
end;
<强>替代
另请参阅this blog post "Inno Setup Script Sample for Version Comparison"更进一步，并读取以前安装的任何版本的版本号，并将该版本号与当前安装包的版本号进行比较。
答案 1 :(得分：26)
给定AppId（即AppID - 部分中[Setup]使用的值），您应该能够从注册表中读取卸载字符串。它可以在Software\Microsoft\Windows\CurrentVersion\Uninstall\{AppId}\下找到（可以是HKLM或HKCU，因此最好检查两者）其中{AppId}应该替换为您使用的实际值。查找UninstallString或QuietUninstallString值，并使用Exec函数从InitializeSetup()事件函数运行它。
更新：使用[Run] - {uninstallexe}部分条目删除了非工作替代解决方案 - 感谢所有指出这一点的评论者！
答案 2 :(得分：6)
使用Inno Setup时，除非该版本由其他安装程序安装，否则没有理由卸载以前的版本。否则升级将自动处理。
答案 3 :(得分：6)
如果您只是想删除旧图标＆＃34; （因为你的更改/更新）你可以使用它：
; attempt to remove previous versions' icons
[InstallDelete]
Type: filesandordirs; Name: {group}\*;
这是在安装开始时运行＆＃34;＆＃34;所以基本上删除了旧图标，完成后你的新图标仍会安装在那里。
我只是在每次安装时执行此操作＆＃34;万一发生任何变化＆＃34;明智的图标（无论如何都会重新安装）。
答案 4 :(得分：2)
Craig McQueen提供的答案是完全可行的。虽然，我会添加这些评论：
{#emit SetupSetting("AppId")}代码对我不起作用，因此我只需添加我的应用ID。所以，关于Craig McQueen的代码，改变是：
InstallLocation密钥而不是UninstallString密钥。DelTree功能代替Exec(sUnInstallString, ...) 答案 5 :(得分：0)
您可以在[code]部分执行卸载程序。您必须弄清楚如何获取现有卸载程序的路径。为了简单起见，当我安装我的应用程序时，我添加了一个指向包含卸载程序的文件夹的注册表字符串值，并且只是在InitializeWizard回调中执行卸载程序。
请记住，Inno安装卸载程序名称的格式为uninsnnn.exe，您需要在代码中考虑到这一点。
答案 6 :(得分：0)
对于使用上面建议的GetUninstallString()来强制在CurStepChanged()内部卸载并且有磁盘缓存问题的任何人，请参阅下面的相关解决方案，该解决方案在卸载程序exe卸载后实际等待一段时间删除！
答案 7 :(得分：0)
我编辑了@Crain Mc-Queen代码，我认为这段代码更好，因为不需要在不同的项目中进行修改：
[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 > 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\' + vCurID + '_is1') then
begin
RegQueryStringValue(HKEY_LOCAL_MACHINE,
'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + vCurID + '_is1',
'DisplayVersion', oldVersion);
if (CompareVersion(oldVersion, '{#SetupSetting("AppVersion")}') < 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;
答案 8 :(得分：0)
对于那些感兴趣的人，我为 Inno Setup 6 及更高版本编写了一个 DLL，它提供了一个支持自动卸载的简单机制。
DLL 提供了一种方法来检测您正在安装的软件包是否已安装（通过 AppId）并根据安装的版本决定是否要自动卸载它（例如，您可能想在用户降级时自动卸载）。
答案 9 :(得分：-1)
我一定错过了什么。 在删除旧安装之前，新文件将复制到目标目录。 然后来卸载程序删除它们并删除目录。
答案 10 :(得分：-8)
请勿使用[Run]部分，而是使用[UninstallRun]。 事实上，[Run]下的程序在安装后执行，导致在安装后立即卸载程序： - | 相反，在安装前评估[strong>运行
答案 11 :(得分：-8)
请点击此链接：http://news.jrsoftware.org/news/innosetup/msg55323.html
在InitializeSetup（）函数中，您可以在用户提示卸载旧旧版本后调用“MSIEXEC / x {您的程序ID}”