VB6如何获取系统NT版本？我记得有一个十几句就可以获取NT版本的代码，现在忘了。 15
展开全部
'基本满足你的要求。
'说明：因为PROFESSIONAL或者HOME EDITION均属XP系统，所以不必再细加判断
Option Explicit
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
osName As String ' 我自己加的, 操作系统的名称
end Type
追问
我试了一下，还有一个问题，那就是……所获取的信息是哪个？我要把信息输出到label上，但找不到是哪个……
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
