[英]Inno Setup: How to automatically uninstall previous installed version?
我正在使用 Inno Setup 创建安装程序。
我希望安装程序自动卸载以前安装的版本,而不是覆盖它。 我该怎么做?
我使用了以下内容。 我不确定这是最简单的方法,但它有效。
这使用依赖于 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;
替代品
另请参阅此博客文章“用于版本比较的 Inno 安装脚本示例” ,它更进一步,读取任何先前安装版本的版本号,并将该版本号与当前安装包的版本号进行比较。
给定 AppId(即您在[Setup]
用于AppID
的值),您应该能够从注册表中读取卸载字符串。 它可以在Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\{AppId}\\
(可以是HKLM
或HKCU
,因此最好同时检查两者)下找到,其中{AppId}
应替换为您使用的实际值。 查找UninstallString
或QuietUninstallString
值并使用Exec
函数从您的InitializeSetup()
事件函数中运行它。
如果您“只想删除旧图标”(因为您的图标已更改/更新),则可以使用:
; attempt to remove previous versions' icons
[InstallDelete]
Type: filesandordirs; Name: {group}\*;
这是在“安装开始时”运行的,因此基本上删除了旧图标,并且在完全完成后,您的新图标仍将安装在那里。
我只是在每次安装时都这样做,“以防万一”图标明智(无论如何都会重新安装)。
使用 Inno Setup 时,没有理由卸载以前的版本,除非该版本是由不同的安装程序安装的。 否则会自动处理升级。
Craig McQueen 提供的答案是完全可行的。 虽然,我会添加这些评论:
{#emit SetupSetting("AppId")}
代码对我不起作用,所以我只添加了我的 App ID。因此,关于 Craig McQueen 的代码,更改如下:
InstallLocation
键而不是UninstallString
键。DelTree
函数代替Exec(sUnInstallString, ...)
对于使用任何GetUninstallString()
以上建议强制里面卸载CurStepChanged()
和具有磁盘缓存的问题,请参见下面的相关解决方案,实际上等待一会unistallation后卸载程序exe文件将被删除!
我编辑了@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;
您可以在 [code] 部分执行卸载程序。 您必须弄清楚如何获取现有卸载程序的路径。 为简单起见,当我安装我的应用程序时,我添加了一个指向包含卸载程序的文件夹的注册表字符串值,然后在 InitializeWizard 回调中执行卸载程序。
请记住,Inno setup 卸载程序名称都是 uninsnnn.exe 形式,您需要在代码中考虑到这一点。
对于那些感兴趣的人,我为 Inno Setup 6 和更高版本编写了一个 DLL,它提供了一个支持自动卸载的简单机制。
DLL 提供了一种方法来检测您正在安装的软件包是否已安装(通过AppId
)并根据安装的版本决定是否要自动卸载它(例如,如果用户是降级)。
我一定是错过了什么。 在删除旧安装之前,新文件将复制到目标目录。 然后卸载程序删除它们并删除目录。
不要使用 [Run] 部分,而是使用 [UninstallRun]。 事实上,[Run] 下的程序是在安装后执行的,导致安装后立即卸载您的程序:-| 相反,在安装之前评估 [UninstallRun] 部分。
按照此链接: http : //news.jrsoftware.org/news/innosetup/msg55323.html
在 InitializeSetup() 函数中,您可以在用户提示卸载旧版本后调用“MSIEXEC /x {your program ID}”
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.