Added NT 6.2 and NT 6.3 (8/8.1)
This commit is contained in:
parent
32af9f878b
commit
c77176e0c7
1 changed files with 8 additions and 0 deletions
|
|
@ -245,6 +245,14 @@ proc `$`*(osvi: TVersionInfo): string =
|
||||||
if osvi.ProductType == VER_NT_WORKSTATION:
|
if osvi.ProductType == VER_NT_WORKSTATION:
|
||||||
result.add("Windows 7 ")
|
result.add("Windows 7 ")
|
||||||
else: result.add("Windows Server 2008 R2 ")
|
else: result.add("Windows Server 2008 R2 ")
|
||||||
|
elif osvi.minorVersion == 2:
|
||||||
|
if osvi.ProductType == VER_NT_WORKSTATION:
|
||||||
|
result.add("Windows 8 ")
|
||||||
|
else: result.add("Windows Server 2012 ")
|
||||||
|
elif osvi.minorVersion == 3:
|
||||||
|
if osvi.ProductType == VER_NT_WORKSTATION:
|
||||||
|
result.add("Windows 8.1 ")
|
||||||
|
else: result.add("Windows Server 2012 R2 ")
|
||||||
|
|
||||||
var dwType = getProductInfo(osvi.majorVersion, osvi.minorVersion, 0, 0)
|
var dwType = getProductInfo(osvi.majorVersion, osvi.minorVersion, 0, 0)
|
||||||
case dwType
|
case dwType
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue