From 4cfd36a2113f32a2d413f12f1b2e14efd82ac304 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Tue, 6 Feb 2018 20:11:36 +0100 Subject: [PATCH] Issue #60: Try to fix non-working RunningOnWindows10S, by passing the current OS version numbers to GetProductInfo() --- source/apphelpers.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/apphelpers.pas b/source/apphelpers.pas index 4d5e68b9..f62e1841 100644 --- a/source/apphelpers.pas +++ b/source/apphelpers.pas @@ -2873,7 +2873,7 @@ begin Result := False; // Avoid crash on WinXP if Win32MajorVersion >= 6 then begin - if GetProductInfo(10, 10, 0, 0, pdwReturnedProductType) then begin + if GetProductInfo(Win32MajorVersion, Win32MinorVersion, TOSVersion.ServicePackMajor, TOSVersion.ServicePackMinor, pdwReturnedProductType) then begin Result := (pdwReturnedProductType = PRODUCT_CLOUD) OR (pdwReturnedProductType = PRODUCT_CLOUDN); end; end;