说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
VB如何判别程序是在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 版。




备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘