Я всегда удовлетворялся определением версии ядра:
1.
2.
3.
4.
5.
6.
7.
Dim osv As OSVERSIONINFO
osv.dwOSVersionInfoSize = Len(osv)
If GetVersionEx(osv) = 1 Then
If osv.dwPlatformId = VER_PLATFORM_WIN32_NT Then
MsgBox osv.dwMajorVersion & "." & osv.dwMinorVersion
End If
End If
Вчера взглянул на Windows 8.1 - там должно быть 6.3, но не все так просто:
GetVersionEx function
GetVersionExApplications not manifested for Windows 8.1 will return the Windows 8 OS version value (6.2).
Ладно, с этим справился:
Targeting your application for Windows 8.1
1.
2.
<!-- Windows 8.1 -->
<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="Test.Application"
type="win32" />
<description>Test Application</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*" />
</dependentAssembly>
</dependency>
<!-- Identify the application security requirements. -->
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges>
<requestedExecutionLevel
level="asInvoker"
uiAccess="false"/>
</requestedPrivileges>
</security>
</trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- Windows 8.1 -->
<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
<!-- Windows Vista -->
<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
<!-- Windows 7 -->
<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
<!-- Windows 8 -->
<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>
</application>
</compatibility>
</assembly>
Но версия ядра не делает различий между
Windows 7 / Windows Server 2008 R2
Windows 8 / Windows Server 2012
и т.д.
Хотелось бы определять имя OS в текстовом виде:
Windows XP SP3
Windows Server 2008 R2
и т.д.
Есть вариант читать из реестра, например:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Public Function WinVersionFromRegistry() As String
Dim ProductName As String
Dim CSDVersion As String
ProductName = GetRegValue(HKEY_LOCAL_MACHINE, _
"SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName", "", False)
ProductName = Trim(Replace(ProductName, "Microsoft", ""))
CSDVersion = GetRegValue(HKEY_LOCAL_MACHINE, _
"SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion", "", False)
CSDVersion = Trim(Replace(CSDVersion, "Service Pack ", "SP"))
If Len(ProductName) > 0 Then
If Len(CSDVersion) > 0 Then
WinVersionFromRegistry = ProductName & " " & CSDVersion
Else
WinVersionFromRegistry = ProductName & " " & CSDVersion
End If
End If
End Function
Но он не очень хорош:
Например для моей тестовой 8.1 выдает:
Windows 8.1
Enterprise Evaluation .
Т.е. может быть вставлен любой мусор типа Enterprise Evaluation что лишнее.
Я нашел более современный метод:
Version Helper functions
Version Helper functionsThe following functions can be used to determine the current OS version or identify whether it is a Windows or Windows Server release. These APIs supersede GetVersion and GetVersionEx.
Про их всех написано:
DLL: Kernel32.dll, ntdll.dll
Minimum supported client: Windows 2000 Professional [desktop apps only]
Minimum supported server: Windows 2000 Server [desktop apps only]
что вообще-то странно, потому что по логике откуда XP может знать про
IsWindows8Point1OrGreater function
Я попробовал задекларировать (причем пробовал варианты как Lib "ntdll.dll" так и Lib "Kernel32.dll"):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
'Version Helper functions
Public Declare Function IsWindows7OrGreater Lib "ntdll.dll" () As Boolean
Public Declare Function IsWindows7SP1OrGreater Lib "ntdll.dll" () As Boolean
Public Declare Function IsWindows8OrGreater Lib "ntdll.dll" () As Boolean
Public Declare Function IsWindows8Point1OrGreater Lib "ntdll.dll" () As Boolean
Public Declare Function IsWindowsServer Lib "ntdll.dll" () As Boolean
Public Declare Function IsWindowsVistaOrGreater Lib "ntdll.dll" () As Boolean
Public Declare Function IsWindowsVistaSP1OrGreater Lib "ntdll.dll" () As Boolean
Public Declare Function IsWindowsVistaSP2OrGreater Lib "ntdll.dll" () As Boolean
Public Declare Function IsWindowsXPOrGreater Lib "ntdll.dll" () As Boolean
Public Declare Function IsWindowsXPSP1OrGreater Lib "ntdll.dll" () As Boolean
Public Declare Function IsWindowsXPSP2OrGreater Lib "ntdll.dll" () As Boolean
Public Declare Function IsWindowsXPSP3OrGreater Lib "ntdll.dll" () As Boolean
can't find DLL entry point IsWindows... in ntdll.dll (ну либо kernel32.dll)
Или msdn врет, или я чего-то не понимаю (не дочитал). Где собака зарыта?
Манифест, приведенный выше, прикручен, но конкретно с этими ф-циями так понимаю он вообще не причем.
Ну, или поставим вопрос по другому.
Как хотя б определить что система = СЕРВЕР (чтоб хотя б различать между 7 и 2008R2 для 6.1) - кроме способа чтения художественного описания из реестра как в коде выше.
