mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Use more correct way

Browse source
This commit is contained in:
Alexander Koblov 2015-08-01 08:54:32 +00:00
commit fdfeaaf32b
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/platform/udcversion.pas
View file

@ -67,7 +67,7 @@ uses
, gtk2
{$ENDIF}
{$IFDEF MSWINDOWS}
, Windows, JwaNative, JwaNtStatus
, Windows, JwaNative, JwaNtStatus, JwaWinType
{$ENDIF}
;
@ -296,8 +296,6 @@ const
{$ENDIF}
{$IF DEFINED(MSWINDOWS)}
const
VER_NT_WORKSTATION = $0000001;
VER_NT_SERVER = $0000003;
PROCESSOR_ARCHITECTURE_AMD64 = 9;
var
si: SYSTEM_INFO;
@ -382,7 +380,7 @@ begin
0: if (osvi.wProductType = VER_NT_WORKSTATION) then
begin
OSVersion := OSVersion + ' 10';
if osvi.wSuiteMask = $0300 then
if (osvi.wSuiteMask and VER_SUITE_PERSONAL <> 0) then
OSVersion := OSVersion + ' Home';
end
end;