当前位置:编程学习 > VB >>

vb中用getversionex(获得版本号)

程序运行后得到与版本相关的数据,其中操作版本标识以数值的形式反映在结构变量osinfo.dwplatformid之中。
select case osinfo.dwplatformid
case 0
v="windows 32s"
case 1
v="windows 98"
case 2
v="windows nt"
请问,windows xp\win7是怎么表示的呢? 难道是case 3 4?哪位大哥看到请帮帮忙 --------------------编程问答--------------------

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long


【操作系统】
Win9X:Yes
WinNT:Yes
【说明】
  在一个OSVERSIONINFO结构中载入与平台和操作系统有关的版本信息 
【返回值】
  Long,非零表示成功,零表示失败 
【其它】
【参数表】
  lpVersionInformation -  OSVERSIONINFO,用于装载版本信息的结构。在正式调用函数之前,必须先将这个结构的dwOSVersionInfoSize字段设为结构的大小(148)
--------------------编程问答-------------------- 参考:
http://www.oschina.net/code/snippet_54100_5403 --------------------编程问答-------------------- 取得岂今为止最全面的Windows版本和IE版本以及32位和64位操作系统信息
http://blog.csdn.net/chenjl1031/article/details/6320254
补充:VB ,  API
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,