Fixed: VersionString for Windows Server 2003
This commit is contained in:
parent
84de63ea1e
commit
dcbdb9edd5
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user