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

VB获取当前系统平台

HTML文档下载 WORD文档下载 PDF文档下载
VB获取当前系统平台
有些程序只能在Win9x下运行,有些程序只能在Winnt下运行,因此我们有时需要判断当前的系统的平台. 下面的程序可以实现该功能:
>>步骤1----建立新工程,在窗体上放置一个CommandButton按钮.
>>步骤2----添加下列代码:

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

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

Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2

Private Sub Command1_Click()
Dim Ver As OSVERSIONINFO
Ver.dwOSVersionInfoSize = Len(Ver)
Call GetVersionEx(Ver)
If Ver.dwPlatformId = 0 Then
MsgBox "Win32"
ElseIf Ver.dwPlatformId = 1 Then
MsgBox "Win95,Win98"
ElseIf Ver.dwPlatformId = 2 Then
MsgBox "Winnt"
Else
MsgBox "Error"
End If
End Sub

>>步骤3----编译运行,按下Command1,可以查看平台信息.
后稀缺时代思考:机器横行下的人类夹缝求生 TIOBE 2014年8月编程语言排行榜:Swift跌出Top 20 精华回顾!历届MDCC大会精彩演讲与议程汇总 《近匠》Fancy3D:亿级游戏背后的轻量级引擎 假如李小龙是程序员…… 有没有办法不出现确认删除的对话框直接删除sheet? 有汉字的问题,高手进入 Update语句的咄咄怪事!!! 告诉大家一个好消息! 各位仁兄,多多帮忙!!!!!~~~~#### 我的一个自定义控件调用数据库,数据打开后,调用一次就多了一个数据库连接? 请问怎样在程序中禁用Windows的各个热键? 关于windows2003版本的问题 struts入门问题,请xdjm们帮忙!!! 在三角形ABC中,AC=BC,∠C=90°,点P在 一根绳子长16米,用去四分之一,还剩( )米;再用 已知:在△ABC中,AC=BC,∠C=90°,点P 一根绳子长16米,先用去四分之一,还剩( )米;再 一根绳子长36米,用去四分之一,用去四分之一米,还 一根绳子长30米用了他的四分之一是多少米还剩多少米 20以内的自然数中,不是质数的奇数有几个急,要列出 在△ABC中,∠C=90°,P为三角形内的一点,且 美国19岁学生欲徒步闯南极 14岁曾欧盟主席谈隐私 被称暗示美国搞监视是西藏活佛在柏林开讲座 介绍藏传佛教和印度总理辛格不用手机电子邮件 不担心日本内阁会议通过特定秘密保护法案 欲昨日入伏 炎热持续转发微信“抢娃”谣言其实是在帮骗子赚深圳边防查获走私快艇 蛇皮袋装了59美梦成真撞好运佛山小伙刮中10万南沙横琴新区企业跨境贷款更方便了轮回之戮绝密刑事侦缉符文天下道血玄黄英雄传说永恒的轨迹海印池旅游朱炳仁铜雕艺术博物馆旅游汪氏小苑旅游牛街礼拜寺旅游濯水古镇旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘