GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 09:13:07 +01:00
Code Issues Projects Releases Wiki Activity

Fixed: VersionString for Windows Server 2003

Browse Source
This commit is contained in:
Mark van Renswoude 2004-07-22 08:20:11 +00:00
parent 84de63ea1e
commit dcbdb9edd5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
X2UtOS.pas
View File

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