|
5 | 5 | * |
6 | 6 | * Copyright (C) 2001-2020, Peter Johnson (@delphidabbler). |
7 | 7 | * |
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) $ |
10 | 10 | * |
11 | 11 | * This unit contains various static classes, constants, type definitions and |
12 | 12 | * global variables for use in providing information about the host computer and |
@@ -446,7 +446,7 @@ interface |
446 | 446 | osWin10Svr, // Windows 2016 Server |
447 | 447 | osWinSvr2019 // Windows 2019 Server |
448 | 448 | ); |
449 | | - |
| 449 | + |
450 | 450 | type |
451 | 451 | /// <summary>Enumeration identifying processor architecture.</summary> |
452 | 452 | TPJProcessorArchitecture = ( |
@@ -1212,7 +1212,8 @@ implementation |
1212 | 1212 | Win10RS5Build = 17763; // Windows 10 RS5 - version 1809 |
1213 | 1213 | Win1019H1Build = 18362; // Windows 10 19H1 - version 1903 |
1214 | 1214 | 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 |
1216 | 1217 |
|
1217 | 1218 | Win2016TP1Build = 9841; // Win 2016 Server Technical Preview 1 |
1218 | 1219 | Win2016TP2Build = 10074; // Win 2016 Server Technical Preview 2 |
@@ -1722,13 +1723,19 @@ procedure InitPlatformIdEx; |
1722 | 1723 | else if IsBuildNumber(Win1019H2Build) then |
1723 | 1724 | begin |
1724 | 1725 | InternalBuildNumber := Win1019H2Build; |
1725 | | - InternalExtraUpdateInfo := 'Version 1909: Novermber 2019 Update'; |
| 1726 | + InternalExtraUpdateInfo := 'Version 1909: November 2019 Update'; |
1726 | 1727 | end |
1727 | 1728 | else if IsBuildNumber(Win1020H1Build) then |
1728 | 1729 | begin |
1729 | 1730 | 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'; |
1732 | 1739 | end |
1733 | 1740 | end |
1734 | 1741 | else |
|
0 commit comments