inno setup卸载应用程序之前启动另一应用程序

Posted 2023-04-22

已经解决了，用[UninstallRun]

参考技术A xscscxczsccscxcxcxzcxzcxcxz

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

【中文标题】Inno Setup：如何自动卸载以前安装的版本？

【英文标题】：Inno Setup: How to automatically uninstall previous installed version?

【发布时间】：2011-01-01 07:11:57

【问题描述】：

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

我希望安装程序自动卸载之前安装的版本，而不是覆盖它。我该怎么做？

【问题讨论】：

请注意，作为 mlaan said，通常不需要使用基于 Inno 的设置来执行此操作，除非您是从非 Inno 版本升级。

Deanna：视情况而定。对于某些具有自动插件系统的程序，它们会读取文件夹中的任何内容，在安装新版本时绝对必须删除旧文件，而简单地运行卸载通常是最干净的方法。

@Nyerguds 但是 InnoSetup 可以在安装开始之前选择删除某些文件/文件夹（“InstallDelete”标志），因此您仍然不需要先卸载旧版本。跨度>

@NickG：同样，视情况而定。那将是理想的情况，是的，并且到目前为止是首选的情况，但实际上，有很多不理想的情况。一个这样的例子是在许多可能的目标版本上注册的 dll 文件。

另见Detect and uninstall old version of application in Inno Setup using its version number stored in registry。

【参考方案1】：

这里是基于answer from 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。

【参考方案2】：

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

【讨论】：

不要考虑从 InitializeSetup 执行此操作。 PrepareToInstall 是正确的位置。 （但根本不这样做是最好的解决方案。）

使用AppId，您甚至可以对多个程序（即客户端和数据库）进行一次卸载：AppId Inno Setup Help

请注意，仅使用Exec 运行卸载程序不会等到它完成后才继续安装（即使使用了ewWaitUntilTerminated），这可能会导致安装损坏。见Uninstalling previous version of product at the beginning of the installation results in corrupted install in Inno Setup。

【参考方案3】：

对于那些感兴趣的人，我为 Inno Setup 6 及更高版本编写了一个 DLL，它提供了一种支持自动卸载的简单机制。

DLL 提供了一种方法来检测您正在安装的软件包是否已安装（通过AppId）并根据已安装的版本决定是否要自动卸载它（例如，您可能想要用户降级时自动卸载）。

https://github.com/Bill-Stewart/UninsIS

【参考方案4】：

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

这使用依赖于 Inno 设置预处理器的 #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"，它更进一步，读取任何先前安装的版本的版本号，并将该版本号与当前安装包的版本号进行比较。

【讨论】：

感谢您参考我的博文。该帖子的完整示例可在此处获得，code.google.com/p/lextudio/source/browse/trunk/trunk/setup/…

很好的解决方案，效果很好。但是，它会在安装过程中打开一个窗口，显示“正在卸载 [软件名称]”。是否可以防止此窗口弹出？因为我的软件安装太快了，安装窗口在卸载窗口之前就关闭了，看起来很奇怪...

@AndréSantaló 使用 /VERYSILENT 而不是 /SILENT

ewWaitUntilTerminated 不起作用。卸载程序将自身复制到一个临时文件夹并从该临时文件夹重新启动。

@МаксимРумянцев 是的，ewWaitUntilTerminated 本身确实没有帮助，这会导致安装损坏。见Uninstalling previous version of product at the beginning of the installation results in corrupted install in Inno Setup。

【参考方案5】：

如果您“只想删除旧图标”（因为您的图标已更改/更新），您可以使用：

; attempt to remove previous versions' icons
[InstallDelete]
Type: filesandordirs; Name: group\*;

这是“在安装开始时”运行的，因此基本上会删除旧图标，并且在完全完成后您的新图标仍将安装在那里。

我只是在每次安装时都这样做“以防万一发生任何变化”图标明智（无论如何都会重新安装）。

【讨论】：

如果您的图标有更新，只需让它们覆盖即可。没有必要删除它们。好吧，如果你想删除它们，你可以使用这个选项。这是正确的方法。无论如何，与您交谈的人（mlaan，Martijn Laan）是 Inno Setup 的作者，我想他知道他在说什么 :-)

是的，当你想重命名或移动一个你需要的图标时。例如，如果 v5 有一个名为“run”并且 v6 已将其重命名为“run basic”，如果用户安装 v5 然后 v6，他们最终会得到 2 个图标，而您真正想要 1（“run basic”）。所以这个技巧最终是必要的（@mlaan +1 用于将 innosetup 的默认行为更改为删除旧图标而不需要这个......）

【参考方案6】：

我一定错过了什么。 new 文件在删除旧安装之前复制到目标目录。 然后卸载程序将它们删除并删除目录。

【讨论】：

我不确定您要说什么，但请注意，它并不总是与复制文件有关。想象一下，您已经安装了您的产品，下一个版本带有完全改变的文件结构，其中许多原始文件被删除，新文件具有不同的名称并存储在不同的目录中。最简单的升级方法是什么？那不是卸载以前的版本吗？

我使用 INNO 安装驱动程序及其附带的应用程序。当然，实际的驱动程序安装/删除不是由 INNO 直接完成的。相反，INNO 会复制驱动程序安装程序/卸载程序，然后运行它。卸载类似：INNO 运行驱动程序删除程序，然后删除文件。

【参考方案7】：

我编辑了@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】：

对于使用上面建议的GetUninstallString() 在CurStepChanged() 中强制卸载并且存在磁盘缓存问题的任何人，请参阅下面的相关解决方案，该解决方案实际上在卸载后等待一段时间才能删除卸载程序 exe！

Disk caching issue with inno-setup?

【参考方案9】：

Craig McQueen 提供的答案是完全可行的。虽然，我会添加这些 cmets：

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

所以，关于 Craig McQueen 的代码，变化是：

检索InstallLocation 键而不是UninstallString 键。 使用DelTree 函数代替Exec(sUnInstallString, ...)

【参考方案10】：

点击此链接：http://news.jrsoftware.org/news/innosetup/msg55323.html

在 InitializeSetup() 函数中，您可以在用户提示卸载旧旧版本后调用“MSIEXEC /x 您的程序 ID”

【讨论】：

MSIEXEC 仅适用于 MSI 包。这不适用于 Inno Setup。

【参考方案11】：

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

请记住，Inno setup 卸载程序名称都是 uninsnnn.exe 形式，您需要在代码中考虑到这一点。

【参考方案12】：

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

【讨论】：

[UninstallRun] 不是该问题的解决方案。

【参考方案13】：

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

【讨论】：

我们的程序结构发生了变化，所以需要卸载旧版本。

不，它没有，您可以在脚本中添加条目以处理更新期间的结构更改。

@mlaan 这些条目是什么？

您可以简单地使用[InstallDelete] 部分来删除旧文件/目录。然后，新文件将在安装过程中放置​​在正确的位置。

如果您升级第三方库，如 DevExpress，其 DLL 名称中有版本号（如之前安装的 15.1 和现在安装的 15.2），那么您想删除旧版本。恕我直言，这是一个很好的理由。