Permalink
Browse files

Issue #60: Try to fix non-working RunningOnWindows10S, by passing the…

… current OS version numbers to GetProductInfo()
  • Loading branch information...
ansgarbecker committed Feb 6, 2018
1 parent 3c16564 commit 4cfd36a2113f32a2d413f12f1b2e14efd82ac304
Showing with 1 addition and 1 deletion.
  1. +1 −1 source/apphelpers.pas
@@ -2873,7 +2873,7 @@ function RunningOnWindows10S: Boolean;
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;

0 comments on commit 4cfd36a

Please sign in to comment.