From: <ou...@us...> - 2013-01-01 11:01:25
|
Revision: 3888 http://jcl.svn.sourceforge.net/jcl/?rev=3888&view=rev Author: outchy Date: 2013-01-01 11:01:13 +0000 (Tue, 01 Jan 2013) Log Message: ----------- The detection of Windows 8 is incomplete (reported in newsgroups). Modified Paths: -------------- trunk/jcl/source/common/JclSysInfo.pas Modified: trunk/jcl/source/common/JclSysInfo.pas =================================================================== --- trunk/jcl/source/common/JclSysInfo.pas 2012-11-27 14:19:28 UTC (rev 3887) +++ trunk/jcl/source/common/JclSysInfo.pas 2013-01-01 11:01:13 UTC (rev 3888) @@ -2696,7 +2696,8 @@ else begin if IsWin2k or IsWinXP or IsWin2003 or IsWin2003R2 or IsWinXP64 or - IsWinVista or IsWinServer2008 or IsWin7 or IsWinServer2008R2 then + IsWinVista or IsWinServer2008 or IsWin7 or IsWinServer2008R2 or + IsWin8 or IsWinServer2012 then begin FileName := ProcessFileName(ProcEntry.th32ProcessID); if FileName = '' then @@ -3524,7 +3525,7 @@ end; end else - if IsWinXP or IsWinVista or IsWin7 then // workstation + if IsWinXP or IsWinVista or IsWin7 or IsWin8 then // workstation begin if GetVersionEx(OSVersionInfo) then begin @@ -3538,7 +3539,7 @@ end; end else - if IsWinServer2008 or IsWinServer2008R2 then // server + if IsWinServer2008 or IsWinServer2008R2 or IsWinServer2012 then // server begin if OSVersionInfo.wProductType in [VER_NT_SERVER,VER_NT_DOMAIN_CONTROLLER] then begin @@ -4418,7 +4419,7 @@ var EnabledFeatures: Int64; begin - if IsWin7 or IsWinServer2008 or IsWinServer2008R2 then + if IsWin7 or IsWinServer2008 or IsWinServer2008R2 or IsWin8 or IsWinServer2012 then begin EnabledFeatures := $FFFFFFFF; EnabledFeatures := EnabledFeatures shl 32; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |