Add Support for Detect Windows Server 2019

Quanos Service Solutions GmbH

Please enhance Code to detect Windows Server 2019

Add the block in procedure InitVersions;

         10:
              case Win32MinorVersion of
                0: begin
                     LMDSIWindows10 := true;
                     if LMDSIProductType = SI_WORKSTATION then
                       LMDSysPlatform := pfWin10
                     else
                     begin
                       if Win32BuildNumber < 17763 then
                         LMDSysPlatform := pfWin2016server
                      else
                         LMDSysPlatform := pfWin2019server;
                     end
                   end;
         end

It looks very strange, stupid to do this in this way,

but its the Microsoft way

https://techcommunity.microsoft.com/t5/Windows-Server-Insiders/Windows-Server-2019-version-info/td-p/234472

Eugene Balabuev (LMD)

Ok. I"ll add it.

Eugene Balabuev (LMD)

Added.