Installation Inno安装程序:如何自动卸载以前安装的版本?

Installation Inno安装程序:如何自动卸载以前安装的版本?,installation,inno-setup,Installation,Inno Setup,我正在使用Inno安装程序创建安装程序 我希望安装程序自动卸载以前安装的版本,而不是覆盖它。如何执行此操作?您应该能够从注册表中读取卸载字符串,给定AppId(即您在[Setup]-部分中用于AppId的值)。它可以在Software\Microsoft\Windows\CurrentVersion\Uninstall\{AppId}\下找到(可以是HKLM或HKCU,因此最好同时选中两者),其中{AppId}应替换为您使用的实际值。查找UninstallString或quietInstallS

我正在使用Inno安装程序创建安装程序


我希望安装程序自动卸载以前安装的版本,而不是覆盖它。如何执行此操作?

您应该能够从注册表中读取卸载字符串,给定AppId(即您在
[Setup]
-部分中用于
AppId
的值)。它可以在
Software\Microsoft\Windows\CurrentVersion\Uninstall\{AppId}\
下找到(可以是
HKLM
HKCU
,因此最好同时选中两者),其中
{AppId}
应替换为您使用的实际值。查找
UninstallString
quietInstallString
值,并使用
Exec
函数从
InitializeSetup()事件函数运行它


更新:使用
[Run]
-带有
{uninstallexe}
的部分条目删除了不起作用的替代解决方案-感谢所有指出这一点的评论者

我使用了以下方法。我不确定这是最简单的方法,但它是有效的

这使用依赖于Inno Setup预处理器的
{emit SetupSetting(“AppId”)}
。如果你不使用,直接剪切并粘贴你的应用程序ID

[代码]
{ ///////////////////////////////////////////////////////////////////// }
函数GetUninstallString():String;
变量
sunistpath:String;
sunstallstring:String;
开始
sunistpath:=ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\{{emit SetupSetting(“AppId”)}\u is1');
sUnInstallString:='';
如果不是RegQueryStringValue(HKLM、sUnInstPath、“卸载字符串”、sUnInstallString),则
RegQueryStringValue(HKCU、sUnInstPath、“卸载字符串”、sUnInstallString);
结果:=sunstallString;
结束;
{ ///////////////////////////////////////////////////////////////////// }
函数IsUpgrade():布尔值;
开始
结果:=(GetUninstallString()“”);
结束;
{ ///////////////////////////////////////////////////////////////////// }
函数UnInstallOldVersion():整数;
变量
sunstallstring:String;
iResultCode:整数;
开始
{返回值:}
{1-卸载字符串为空}
{2-执行卸载字符串时出错}
{3-已成功执行卸载字符串}
{默认返回值}
结果:=0;
{获取旧应用程序的卸载字符串}
sUnInstallString:=GetUninstallString();
如果是字符串“”,则开始
sUnInstallString:=RemoveQuotes(sUnInstallString);
如果Exec(sunstallstring、/SILENT/NORESTART/suppressMsgBox、“”、SW_HIDE、ewwaitUnterminated、iResultCode),则
结果:=3
其他的
结果:=2;
结束其他
结果:=1;
结束;
{ ///////////////////////////////////////////////////////////////////// }
过程CurStepChanged(CurStep:TSetupStep);
开始
如果(CurStep=ssInstall),则
开始
如果是(IsUpgrade()),则
开始
卸载旧版本();
结束;
结束;
结束;
备选方案


另请参阅更进一步的内容,读取以前安装的任何版本的版本号,并将该版本号与当前安装包的版本号进行比较。

使用Inno Setup时,没有理由卸载以前的版本,除非该版本是由其他安装程序安装的。否则升级将自动处理。

不要使用[Run]部分,而是使用[UninstallRun]。 实际上,[Run]下的程序在安装后执行,导致安装后立即卸载程序:-|
相反,在安装之前,会对[UninstallRun]部分进行评估。

您可以在[code]部分执行卸载程序。您必须弄清楚如何获取现有卸载程序的路径。为了简单起见,在安装应用程序时,我添加了一个注册表字符串值,该值指向包含卸载程序的文件夹,只需在InitializeWizard回调中执行卸载程序

请记住,Inno安装卸载程序名称的格式都是uninsnn.exe,您需要在代码中考虑到这一点。

请点击以下链接:


在InitializeSetup()函数中,用户提示卸载旧版本后,可以调用“MSIEXEC/x{your program ID}”,Craig McQueen提供的答案是完全可行的。不过,我要补充这些意见:

  • {#emit SetupSetting(“AppId”)}
    代码对我不起作用,所以我只添加了我的AppId
  • 我不想执行卸载程序,因为我在AppData/文件夹中存储了一个INI配置文件,该文件已被卸载程序删除,并且我不希望在安装新版本时将其删除。因此,我对Craig McQueen提供的代码进行了一些修改,以在检索程序路径后删除安装程序的目录
因此,关于Craig McQueen的代码,变化如下:

  • 检索
    InstallLocation
    键,而不是
    UninstallString
  • 使用
    DelTree
    函数代替
    Exec(sunstallstring,…)

对于使用上面建议的
GetUninstallString()
CurStepChanged()
内部强制卸载并且存在磁盘缓存问题的任何人,请参阅下面的相关解决方案,该解决方案在卸载程序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;
[代码]
函数GetNumber(var-temp:String):整数;
变量
第二部分:字符串;
pos1:整数;
开始
如果长度(温度)=0,则
开始
结果:=-1;
出口
结束;
位置1:=位置('.',温度);
如果(pos1=0),则
开始
结果:=stroint(温度);
温度:='';
结束
其他的
开始
零件:=副本(临时,1,位置
; attempt to remove previous versions' icons
[InstallDelete]
Type: filesandordirs; Name: {group}\*;