Pascal Scripting: IsMsiProductInstalled

Prototype

function IsMsiProductInstalled(const UpgradeCode: String; const PackedMinVersion: Int64): Boolean;

Description

Returns True if a MSI product with the specified UpgradeCode and PackedMinVersion is installed.

If there are multiple products installed with the specified UpgradeCode only the version of the first product returned by the system is checked.

An exception will be raised if an error occurs.

Example:

function InitializeSetup: Boolean;
begin
  Result := IsMsiProductInstalled('{20400CF0-DE7C-327E-9AE4-F0F38D9085F8}', PackVersionComponents(12, 0, 0, 0)); //Returns True if Visual C++ 2013 Redistributable (x64) is installed
  if not Result then
    SuppressibleMsgBox(FmtMessage(SetupMessage(msgWinVersionTooLowError), ['Visual C++ 2013 Redistributable (x64)', '12.0']), mbCriticalError, MB_OK, IDOK);
end;