1
0
mirror of synced 2024-12-22 01:03:07 +01:00

Fixed: VersionString for Windows Server 2003

This commit is contained in:
Mark van Renswoude 2004-07-22 08:20:11 +00:00
parent 84de63ea1e
commit dcbdb9edd5

View File

@ -44,8 +44,8 @@ uses
type
//:$ Enumeration of the recognized Operating System versions
TX2OSVersion =(osWin95, osWin98, osWinME, osWinNT3, osWinNT4,
osWin2K, osWinXP, osWin2003, osUnknown);
TX2OSVersion = (osWin95, osWin98, osWinME, osWinNT3, osWinNT4,
osWin2K, osWinXP, osWin2003, osUnknown);
{
:$ Contains extended version information for the Operating System
@ -192,6 +192,7 @@ begin
osWinNT4: VersionString := 'NT 4';
osWin2K: VersionString := '2000';
osWinXP: VersionString := 'XP';
osWin2003: VersionString := 'Server 2003';
osUnknown: VersionString := Format('%d.%d', [pVersion.dwMajorVersion,
pVersion.dwMinorVersion]);
end;