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

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,可以查看平台信息.
谁都可以做开发者:微软推出Windows Phone Web工具 Mozilla正式发布Firefox 23 新增混合内容拦截 网络监控功能 14条建议,使你的IT职业生涯更上一层楼 依托微信的电商产品实践——SDCC 2013讲师潘凡专访 IBM将向Google、英伟达等授权Power架构技术 人脑研究将推动下一代网络革命?从大爆炸到大收缩 H3C携手F5将“空转”数据中心变为“分布式数据中心” W3C小组发布Web存储API推荐标准 开发者必备的6款源码搜索引擎 闪亮登场:开发者制作图形图表所需的11款JS工具包 来自两位技术大牛的博弈:HBase或将制霸NoSQL? 应用改变世界 2013英特尔®创新应用大赛火热开启 看13位CEO、创始人和高管如何提高工作效率 对首次购买智能手机用户而言,苹果吸引力并不大 Amazon Appstore面向Web应用开放 开发者可添加应用内付费功能 CSC收购成功转型的大数据初创公司InfoChimps 嘀嘀打车发展报告:成全球最大出租车调度平台 又摊上事儿了,Android的MasterKey再次出现bug 比特币挖矿必备工具 硬件性能大比拼 RDBMS vs. NoSQL:反派为什么会得以存活并发展壮大 帮助优化移动网站:谷歌发布新指南和PageSpeed Insights工具 增强Web可用性,你需要避免的七大设计错误 Python六大开源框架对比:Web2py略胜一筹 海外看中国:老外开发者间流传着的7件事儿 京东云峰:电商移动云平台背后的技术 初创公司DigitalOcean:55秒搭建一个云服务器 分布式系统事务原子性的非阻塞实现 IBM发布基于人脑特性设计的全新计算架构和编程语言 16款加速编码的HTML5在线工具 JFrog:开源项目的最大挑战是文档和许可 5个技巧打造完美用户体验,不到两年完成用户万到千万的增长 请教网站的建设计划如何写呀? 请问下面的DELPHI程序如何转为CB 帮忙测试! 怎样得到硬盘序列号 关于Web开发…… Notes Client 待办事宜的定时刷新问题 都是面向对象,怎么C++和JAVA对此代码的结果不同?欢迎高手讨论! 关于//{{AFX_??? 的问题 ---> 如何动态建立字符数组? 都是面向对象,怎么JAVA和C++对此代码结果不同?欢迎高手讨论! 如何解决线程函数与窗体的交互 vb+SQL2000的奇怪出错提示 请问怎么作出jar文件? 急!!!谁有RTF文件格式中元素说明?给一份!谢先!!!!70分奉上!!! java plug-in 1.3.1是什么东东?如何用? ASP中用foxpro数据库,删除记录的问题,我急。。。 急急急 兄弟我用HTML Help workshop 制作帮助,无法显示图片和默认页,那位来切磋一下好吗 怎么判断打印完毕和打印故障和取消打印的状态? php网络程式的问题。 用C++如何实现多进程ftp功能? 加了个硬盘,整个系统全乱了,怎么办? delphi 6手册组,我翻译好的文件无法上传,谁知道该怎么办? 我不想用第三方控件,如果我想使把Panel中的内容达到一个清屏效果(便如由上向下刷新,但最前有一些粉碎状效果,或是百叶窗什么的。) 有关异常的问题 如何用最简单的方法控制在数据窗口最后一列按回车键增加一行? 哪有ASP的技术手册呀?有关组件用法的 那位能有一个使用xpoint的应用?我不知道应该怎么用xpoint,有什么好??? 为什么我建立了两个读写线程,当频繁读写硬盘后,无法刷新界面呢? 再请教:如何得到浏览器的窗口的尺寸? 高分求助!!!怎样用VC在98下建立一拨号连接? 曾经的话题想改变命运的请走进来不想再说多少有自已看懂了的曾经在这里发过言的朋友可以和我联系,QQ12545029,scaer123@163.net socket编程,如何使connect()30秒超时???? 请问国内有OpenGL的比较全面的代码下载站点吗?能否提供几个URL?谢谢! 关于操作符重载的问题 有什么办法隐藏一个文件夹,使别人清除隐藏属性也看不到。 com的奇怪问题,27分 新手三层结构。问题多多。。。 jsp怎样连数据库? 高分讨教:这个vb+SQL2000的出错提示太奇怪了. 有在深圳考程序员的吗? 大家觉得电信好还是联通好啊 为什么在Win2000下我的GeForce GTS的显卡用了最新的公版驱动,在Windows优化大师中测试 一个小问题,如何在Access97数据库中创建和使用临时表??? 请问一个问题:有一个字符串,我想去掉左边固定的几个字符,剩下右边未知的几个字符!怎么做?谢谢~~ 菜鸟提问,网页上的自动变化的图片用什么作的呀? 请问哪有免费的web mail系统下载? 如何新建一个数据链接? 我想给自己的控件加一个ImageList和ImageIndex属性,选中ImageList后,在ImageIndex中显示图像列表。应如何做? 曾经的话题想改变命运的请走进来不想再说多少有自已看懂,了的曾经在这里发过言的朋友可以和我联系,QQ12545029,scaer123@163.net 如何在ASP中实现广告的按比率播放? 2004年小刚正好12岁,但他只有过了3个生日.小刚是哪一年哪一天生的?2004年小刚正 小刚说我的生日比爸爸生日晚3 天,爸爸的生日比12月28日晚5天,问小刚生日哪天? (1-1/11的平方)*(1-1/12的平方)*(1-1/13的平方)*……*(1-1/99的平方)求简便运算 一个圆的面积是9.42平方分米,圆的周长怎么算?昵称叫格兰de 1.6 将下列二进制数转换成十进制数、八进制数和十六进制数:( 3 )( 10111.01 ) 21.7 将下列十进制数转换成二进制数、八进制数和十六进制数(二进制数精确到小数点后 4 位):( 3 )( 3 :(1-11/1的平方)*1-(12/1的平方)*.*1-(99/1的平方)快些 怎样算半圆的面积和周长?怎样算一个圆的周长和面积? 将下列二进制数转换成十进制数、八进制数和十六进制数:(3)(10111.01)2将下列十进制数转换成二进制数、八进制数和十六进制数(二进制数精确到小数点后4位):(3)(33.33)10 为什么给一个16位的二进制数除以256就能取它的高8位, 怎样用定积分算圆的周长与圆的面积? 将十进制数32.5转换成对应的二进制数、八进制数和十六进制数. 如果一个16位和一个8位的二进制数是怎样进行位与运算的?(也就是如果位数不等)书上说ch&=0xff无论最初ch是几位,都将最终的值修正到一个字节中. 一个圆的面积是24平方米,怎么算这个圆的周长 判断:半径是2厘米的圆的周长等于这个圆的面积 . 二进制除法 16位除以8位 结果商和余数 最多只有8位以上是对的吗?为什么呢?比如最大的16位,除以最小的8位数 00000001,结果肯定不止8位的啊? 什么是圆的周长计算元的周长需要哪些条件如何计算圆的周长 什么是圆的面积如何计算圆的面积分数乘法的计算方法你知道吗怎样计算请你举例说明急... 圆的面积等于圆的周长的一半乘半径.这句话,啥噢。..- 8位二进制数什么意思 离散数学数理逻辑的一个题目某电路中有一个灯泡和三个开关A,B,C.已知在且仅在下述四种情况下灯亮: (1)C的扳键向上,A,B的扳键向下. (2)A的扳键向上,B,C的扳键向下. (3)B,C的扳键向 已知a=1/2+根号3,b=1/2-根号3,求a∧2+3ab+b∧2-2a-2b的值 一个圆半径是r厘米,这个圆的周长是()面积是();一个半圆的半径是r厘米,这个半圆周长是( )面积是()一个长方形长20分米,长与宽比是5:3,这个长方形周长是()面积是( ) 考试真题(数理逻辑推理题),1,6、7、8、13、15、21 ()A 27 B 28 C 31 D 352,22 、 4、12、48 ()A96 B 120 C 144 D 2403,1.01、1.02、2.03 3.05 5.08 ()A 8.13 B8.023 C 7.12 D7.024,31648 、3168、317、32 ()A 4 B3 C 2 D 1 8+8采用16进制等于多少~ 把两个相等的半圆拼成一个圆,这个圆的周长等于两个半圆的周长之和对吗? 小明过完第10个生日,他爸爸刚过完第9个生日,这是为什么? 离散数学数理逻辑题已知命题公式A中含3个命题变项p,q,r,并知道它的成真赋值为001,010,111,求A的主析取范式和主合取范式,及A对应的真值函数.P90A的主析取范式为m1 ∨ m2 ∨ m7A的主合 16变成8进制等于几? 解方程x²-(1+根号5)x+根号5=0 离散数学_数理逻辑题: 求该"和取范式"的"析取范式"?(P->(Q ∩ R)) ∩ (┐P->(┐Q∩┐R))的析取范式是什么?我试图用分配律来展开,发现越展开越大,最后完全没有思路了.应该怎么做呢,请给出详细 在十六进制中,A×B等于?十六进制是逢十六进位的记数法,采用整数0~9和字母A~F共16个符号,这些符合于十进制数之间的对应关系如下表:十六进制 0 1 2 3 4 5 6 7 8 9 A B C D E F十进制 0 1 2 3 4 5 6 7 8 找规律,1,2,3,4分别为什么,为什么? 什么是离散数学里数理逻辑里面的真值请通俗一点 (1-2的平方分之一)(1-3的平方分之一)(1-四的平方之一).(1-99的平方分之一) (2根号6)²-(-3根号2)² 离散数学数理逻辑例 构造下面推理的证明 P1152是素数或合数.若2是素数,则 是无理数.若 是无理数,则4不是素数.所以,如果4是素数,则2是合数. 圆的周长为c,则它的面积用c的代数式表示为? (3根号2-2根号3)²=30-6根号6对吗? 根号(75) -根号(108)+根号(48)-根号(27)因为计算机输入问题,根号 就是 根号的那个符号. 圆的周长是直径的( )倍,或是半径的( )倍.如果用C表示圆的周长,那么C=( )或C=( ) 找规律:1,3,4,9,7,(),(),15,13. 已知圆的周长是C,求圆的面积S,可列式为什么?务必在1月8日中午12:00回复我! 如果用r表示圆的半径,c表示圆的周长,那么有C=2πr在这个问题中有( )个变量,它们是( ),这里的( )可以看作是( )的函数一辆汽车从南京出发沿宁沪高速公路,这个行程问题中涉及路程,时间三个量, 1,3,4,9,7( ),( ) ,15,13 找规律添空 已知圆的周长c,求圆的面积s=怎么做? 如果用c表示面积 那么圆的周长计算公式是什么或什么 (x-5)²;=±根号3 x=?大师们,帮帮我吧 这题我不理解 已知圆的周长为L,求圆的面积S 请问大家1000的八进制等于多少十进制,他们之间是怎么转换的呀~我知道步骤是这样列的,但是0乘8的0次方不是等于0吧~0乘8的1次方也是等于零吧,0乘8的2次方还是等于零吧~+1乘8的3次方 结果就是 1.已知a+b=根号5+根号3,ab=根号15,求a²+b²2.已知x=根号5 +1,y=根号5 -1,求式子x²y+xy²的值 3.已知x=根号10 -3,求式子x²+6x+11的值 1356 8进制怎么算 八进制的1507等于十进制的多少? 一道数理逻辑题.急.高分.求 (非(存在x)P(x)析取(全称y)Q(y))蕴含(全称z)R(z) 的前束范式,几个符号在这里显示不出,懂的人应该看得懂要过程,谢谢!回答出来追加80分! 八进制2+7等于多少,怎么算的 把十进制数-617转换成八进制数等于多少 数理逻辑证明题,谓词逻辑公理1:A→(B→A)2:(A→(B→C))→((A→B)→(A→C))3:(﹁A→B) →((﹁A→﹁B) →A)推理规则:分离规则:如果A,并且A→B,那么B.Th1:C→(D→(C→D));Th2(D→A)→(D→D)Th3((A→A) →A 2004的2次方=?2001乘以1999=?99的2次方=? 十进制转换成八进制20;如何计算? 数理逻辑问题如何将谓词命题 (任意x)A(x)∨(任意x)B(x)化为前束范式? 2004的平方-2004乘以2003利用因式分解计算(有过程) 求回答:"已知a+b-6a+2b+10=0,求√(3)【根号3】a-b"要快
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn