查看完整版本: 如何判别程序是在Win95或NT下执行？

如何判别程序是在Win95或NT下执行？

　　调用 GetVersionEx 函数。
'声明:
Type OSVERSIONINFO
　　dwOSVersionInfoSize As Long
　　dwMajorVersion As Long
　　dwMinorVersion As Long
　　dwBuildNumber As Long
　　dwPlatformId As Long
　　szCSDVersion As String * 128
End Type
Public Declare Function GetVersionEx Lib "kernel32" Alias _
"GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Boolean
Public Const VER_PLATFORM_WIN32s = 0
Public Const VER_PLATFORM_WIN32_WINDOWS = 1
Public Const VER_PLATFORM_WIN32_NT = 2
'代码:
Dim Ver As OSVERSIONINFO
Ver.dwOSVersionInfoSize = Len(Ver)
Call GetVersionEx(Ver)
Dim hCursor As Long
　　调用之后，Ver.dwPlatformId 的值可用判断作业系统平台 - 95 或 NT，如下表：
VER_PLATFORM_WIN32s Win32s - 让 Windows 3.1 可执行 32 位元应用程序的平台
VER_PLATFORM_WIN32_WINDOWS Windows 95, 98
VER_PLATFORM_WIN32_NT Windows NT
　　除了 Ver.dwPlatformId 之外， Ver.dwMajorVersion 及 Ver.dwMinorVersion 可用来判断版本，以 Windows 95 为例， Ver.dwMajorVersion 等于 4, 而 Ver.dwMinorVersion 等于 0， 表示 Windows 95 是 4.0 版。