Inno設置：根據產品代碼檢測安裝

Question

我希望實現與Inno設置類似的功能- 如果未安裝其他程序，請跳過安裝

但我確實有msiexec產品代碼（如D3AA40C4-9BFB-4640-88CE-EDC93A3703CC）。 那么如何根據此產品代碼檢測是否安裝了其他程序？

Answer 1

這有MsiQueryProductState函數。 以下是為您的任務導入的輔助函數：

[Code]
#IFDEF UNICODE
  #DEFINE AW "W"
#ELSE
  #DEFINE AW "A"
#ENDIF
type
  INSTALLSTATE = Longint;
const
  INSTALLSTATE_DEFAULT = 5;

function MsiQueryProductState(szProduct: string): INSTALLSTATE; 
  external 'MsiQueryProductState{#AW}@msi.dll stdcall';

function IsProductInstalled(const ProductID: string): Boolean;
begin
  Result := MsiQueryProductState(ProductID) = INSTALLSTATE_DEFAULT;
end;

它的可能用途：

if IsProductInstalled('{D3AA40C4-9BFB-4640-88CE-EDC93A3703CC}') then
  MsgBox('The product is installed.', mbInformation, MB_OK);