function IsMsiProductInstalled(const UpgradeCode: String; const PackedMinVersion: Int64): Boolean;
Функция возвращает значение True, если продукт MSI с указанными значением PackedMinVersion установлен.
Если установлено несколько продуктов с указанным UpgradeCode, то проверяется версия только первого продукта, возвращаемого системой.
В случае ошибки будет вызвано исключение.
function InitializeSetup: Boolean; begin // Возвращает True, если библиотека Visual C++ 2013 Redistributable (x64) установлена. Result := IsMsiProductInstalled('{20400CF0-DE7C-327E-9AE4-F0F38D9085F8}', PackVersionComponents(12, 0, 0, 0)); // В противном случае выводим сообщение об ошибке. if not Result then SuppressibleMsgBox(FmtMessage(SetupMessage(msgWinVersionTooLowError), ['Visual C++ 2013 Redistributable (x64)', '12.0']), mbCriticalError, MB_OK, IDOK); end;