VB调用API获取系统信息的例子

最新推荐文章于 2024-11-10 13:18:55 发布

转载最新推荐文章于 2024-11-10 13:18:55 发布 · 470 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://blog.youkuaiyun.com/chenjl1031/article/details/6320254

文章标签：

#api #函数 #vb

VB 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一种使用Visual Basic编写的程序来获取当前运行系统的详细版本信息的方法，包括主要版本号、次要版本号、构建编号、平台ID及维护字符串。通过调用GetVersionEx函数并解析OSVERSIONINFO结构体，可以准确地识别出操作系统的具体版本。

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ' Maintenance string for PSS usage
End Type

Private Sub Form_Load()
Me.Show
Dim xx As OSVERSIONINFO
'在正式调用函数之前，必须先将这个结构的dwOSVersionInfoSize字段设为结构的大小（148）
xx.dwOSVersionInfoSize = 148
GetVersionEx xx
Print xx.dwBuildNumber
Print xx.dwMajorVersion
Print xx.dwMinorVersion
Print xx.dwOSVersionInfoSize
Print xx.dwPlatformId
Print xx.szCSDVersion