我正在使用 Inno Setup 创建安装程序。
我希望安装程序自动卸载以前安装的版本,而不是覆盖它。我怎样才能做到这一点?
我使用了以下内容。我不确定这是最简单的方法,但它确实有效。
这使用{#emit SetupSetting("AppId")}
依赖于 Inno Setup Preprocessor。如果您不使用它,请直接剪切并粘贴您的 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 Setup Script Sample for Version Comparison”,它更进一步,读取任何先前安装的版本的版本号,并将该版本号与当前安装包的版本号进行比较。
AppID
给定 AppId(即您在 - 部分中使用的值),您应该能够从注册表中读取卸载字符串[Setup]
。它可以在Software\Microsoft\Windows\CurrentVersion\Uninstall\{AppId}\
(可以是HKLM
或HKCU
,所以最好同时检查)下找到{AppId}
应该用您使用的实际值替换的位置。查找UninstallString
orQuietUninstallString
值并使用该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()
并且存在磁盘缓存问题的任何人,请参阅下面的相关解决方案,该解决方案实际上在卸载后等待一段时间才能删除卸载程序 exe!
这是基于Craig McQueen 回答的简化版本:
const
UninstallRegisterPath = 'Software\Microsoft\Windows\CurrentVersion\Uninstall\' + '{#emit SetupSetting("AppName")}' + '_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;
注意:就我而言,我使用AppName
而不是AppId
.
您可以在 [code] 部分执行卸载程序。您必须弄清楚如何获取现有卸载程序的路径。为简单起见,当我安装我的应用程序时,我添加了一个指向包含卸载程序的文件夹的注册表字符串值,并在 InitializeWizard 回调中执行卸载程序。
请记住,Inno setup 卸载程序名称都是 uninsnnn.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;
对于那些感兴趣的人,我为 Inno Setup 6 及更高版本编写了一个 DLL,它提供了一种支持自动卸载的简单机制。
DLL 提供了一种方法来检测您正在安装的软件包是否已经安装(通过AppId
)并根据安装的版本决定是否要自动卸载它(例如,如果用户正在降级,您可能希望自动卸载)。
我肯定错过了什么。在删除旧安装之前,新文件将复制到目标 目录。然后卸载程序删除它们并删除目录。
不要使用 [Run] 部分,而是使用 [UninstallRun]。实际上,[运行]下的程序是在安装后执行的,导致安装后立即卸载您的程序:-| 相反,在安装之前评估 [UninstallRun] 部分。
按照这个链接: http: //news.jrsoftware.org/news/innosetup/msg55323.html
在 InitializeSetup() 函数中,您可以在用户提示卸载旧旧版本后调用“MSIEXEC /x {您的程序 ID}”