Skip to content

Commit 2a5e5a9

Browse files
committed
Update 3rd party PJSysInfo unit to v5.5.0
1 parent c6fd42d commit 2a5e5a9

File tree

1 file changed

+14
-7
lines changed

1 file changed

+14
-7
lines changed

Src/3rdParty/PJSysInfo.pas

Lines changed: 14 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -5,8 +5,8 @@
55
*
66
* Copyright (C) 2001-2020, Peter Johnson (@delphidabbler).
77
*
8-
* $Rev: 2023 $
9-
* $Date: 2020-03-17 05:00:45 +0000 (Tue, 17 Mar 2020) $
8+
* $Rev: 2029 $
9+
* $Date: 2020-10-31 15:24:58 +0000 (Sat, 31 Oct 2020) $
1010
*
1111
* This unit contains various static classes, constants, type definitions and
1212
* global variables for use in providing information about the host computer and
@@ -446,7 +446,7 @@ interface
446446
osWin10Svr, // Windows 2016 Server
447447
osWinSvr2019 // Windows 2019 Server
448448
);
449-
449+
450450
type
451451
/// <summary>Enumeration identifying processor architecture.</summary>
452452
TPJProcessorArchitecture = (
@@ -1212,7 +1212,8 @@ implementation
12121212
Win10RS5Build = 17763; // Windows 10 RS5 - version 1809
12131213
Win1019H1Build = 18362; // Windows 10 19H1 - version 1903
12141214
Win1019H2Build = 18363; // Windows 10 19H2 - version 1909
1215-
Win1020H1Build = 19041; // Windows 10 20H2 - version 2004
1215+
Win1020H1Build = 19041; // Windows 10 20H1 - version 2004
1216+
Win1020H2Build = 19042; // Windows 10 20H2 - version 20H2
12161217

12171218
Win2016TP1Build = 9841; // Win 2016 Server Technical Preview 1
12181219
Win2016TP2Build = 10074; // Win 2016 Server Technical Preview 2
@@ -1722,13 +1723,19 @@ procedure InitPlatformIdEx;
17221723
else if IsBuildNumber(Win1019H2Build) then
17231724
begin
17241725
InternalBuildNumber := Win1019H2Build;
1725-
InternalExtraUpdateInfo := 'Version 1909: Novermber 2019 Update';
1726+
InternalExtraUpdateInfo := 'Version 1909: November 2019 Update';
17261727
end
17271728
else if IsBuildNumber(Win1020H1Build) then
17281729
begin
17291730
InternalBuildNumber := Win1020H1Build;
1730-
// TODO: Add marketing name below once known
1731-
InternalExtraUpdateInfo := 'Version 2004';
1731+
InternalExtraUpdateInfo := 'Version 2004: May 2020 Update';
1732+
end
1733+
else if IsBuildNumber(Win1020H2Build) then
1734+
begin
1735+
InternalBuildNumber := Win1020H2Build;
1736+
// Note: Microsoft announced the official version name is '20H2',
1737+
// not '2010' which some had expected it to be
1738+
InternalExtraUpdateInfo := 'Version 20H2: October 2020 Update';
17321739
end
17331740
end
17341741
else

0 commit comments

Comments
 (0)