installation - 在 Inno Setup 中执行 UninstallString

Question

我的要求是在安装之前检查以前安装的 SQL Native Client 11 并卸载以前的版本。我可以检查以前的安装，没有任何问题，但是，我无法卸载它。

我使用了How to detect old installation and offer removal?中提到的解决方案

在运行时，我收到以下错误

Exception: Internal error: Unknown constant "A22EED3F-6DB6-4987-8023-6C6B7030E554".

(其中常量是 native 客户端的 GUID)在该行执行期间

Exec(ExpandConstant(sUnInstallString), '', '', SW_SHOW, ewWaitUntilTerminated, iResultCode);

sUnInstallString 是

MsiExec.exe /I{A22EED3F-6DB6-4987-8023-6C6B7030E554}

提前致谢。

Answer 1

这不是 (Inno Setup) 常量。那是一个 GUID。删除 ExpandConstant 调用。

并且您需要将卸载字符串拆分为程序路径及其参数。

var
  P: Integer;
  UninstallPath: string;
  UninstallParams: string;
begin
  // ...

  // In case the program path is quoted, because it contains spaces.
  // (it's not in your case, but it can be, in general)
  if Copy(sUnInstallString, 1, 1) = '"' then
  begin
    Delete(sUnInstallString, 1, 1);
    P := Pos('"', sUnInstallString);
  end
    else P := 0;

  if P = 0 then
  begin
    P := Pos(' ', sUnInstallString);
  end;
  UninstallPath := Copy(sUnInstallString, 1, P - 1);
  UninstallParams :=
    TrimLeft(Copy(sUnInstallString, P + 1, Length(sUnInstallString) - P));

  Exec(UninstallPath, UninstallParams, '', SW_SHOW, wWaitUntilTerminated,
       iResultCode);
  // ...
end;