如何使用 InstallShield 升级代码 GUID 卸载 Inno Setup 中的相关产品

我们公司已从使用InstallShield Express 切换为使用Inno Setup（5.5.2 版本）。我们已经使用 InstallShield 进行了多年的旧安装，但始终依赖 InstallShield 的升级代码 GUID 来处理先前版本的卸载。

我需要能够从我们新的 Inno Setup 安装程序中卸载任何以前安装的 InstallShield 版本。

经过一番研究后，我似乎需要调用 MsiEnumRelatedProducts()，然后卸载任何找到的产品。

我找到了这个链接（原文为德文）。看起来他已经非常接近了，但他从未发布他的最终解决方案。

他说代码有效（但对我来说崩溃了）：

type
  TProductBuf = array[0..39] of char;

function MsiEnumRelatedProducts(lpUpgradeCode:string;
  dwReserved, iProductIndex:cardinal; 
  var lpProductBuf:TProductBuf) : cardinal;
external '[email protected] setuponly stdcall';

function InitializeSetup : boolean;
var
  ret, i, j : cardinal;
  ProductBuf : TProductBuf;
  ProductCode : string;

begin
  Result := true;
  i := 0;
  repeat
  ret := MsiEnumRelatedProducts('{#UPGRADE_CODE}', 0, i, ProductBuf);
    if ret=0 then
    begin
      ProductCode := '';
      for j := 0 to 39 do
      begin
        if ProductBuf[j] = #0 then
          break;
        ProductCode := ProductCode + ProductBuf[j];
      end;
      Result := uninstallOther(ProductCode);
    end;
    i := i+1;
  until ret <> 0;
end;

他说这样会更容易吗？

SetLength(ProductCode, Pos(#0, ProductCode) - 1);

我是 Pascal 脚本的新手，我陷入了整个 SetLength() 部分。它取代了他所说的有效但崩溃的功能中的什么？

既然其他人说要切换到字符串，我应该摆脱这个：

type
  TProductBuf = array[0..39] of char;

如果有人能用英语向我展示最终的工作函数，那就太棒了！

提前致谢！

编辑： 我正在使用 Inno Setup 编译器的 ANSI 版本。

这是一个未经测试的翻译，它应该只在消息框中打印出相关产品的 GUID。该代码应该适用于 ANSI 以及 InnoSetup 的 Unicode 版本：

[Code]
#ifdef UNICODE
  #define AW "W"
#else
  #define AW "A"
#endif

#define UPGRADE_CODE "<your upgrade here>"

const
  ERROR_SUCCESS = $00000000;
  ERROR_NOT_ENOUGH_MEMORY = $00000008;
  ERROR_INVALID_PARAMETER = $00000057;
  ERROR_NO_MORE_ITEMS = $00000103;
  ERROR_BAD_CONFIGURATION = $0000064A;

function MsiEnumRelatedProducts(lpUpgradeCode: string; dwReserved: DWORD;
  iProductIndex: DWORD; lpProductBuf: string): UINT;
  external 'MsiEnumRelatedProducts{#AW}@msi.dll stdcall';

function InitializeSetup: Boolean;
var
  I: Integer;
  ProductBuf: string;
begin
  Result := True;

  I := 0;
  SetLength(ProductBuf, 39);

  while MsiEnumRelatedProducts('{#UPGRADE_CODE}', 0, I, ProductBuf) = ERROR_SUCCESS do
  begin
    MsgBox(ProductBuf, mbInformation, MB_OK);
    I := I + 1;
    SetLength(ProductBuf, 39);
  end;
end;