|
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