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

VB如何判别程序是在Win95或NT下执行?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何判别程序是在Win95或NT下执行?
调用 GetVersionEx 函数。

'声明:
Type OSVERSIONINFO
  dwOSVersionInfoSize As Long
  dwMajorVersion As Long
  dwMinorVersion As Long
  dwBuildNumber As Long
  dwPlatformId As Long
  szCSDVersion As String * 128
End Type
Public Declare Function GetVersionEx Lib "kernel32" Alias _
"GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Boolean
Public Const VER_PLATFORM_WIN32s = 0
Public Const VER_PLATFORM_WIN32_WINDOWS = 1
Public Const VER_PLATFORM_WIN32_NT = 2

'代码:

Dim Ver As OSVERSIONINFO
Ver.dwOSVersionInfoSize = Len(Ver)
Call GetVersionEx(Ver)
Dim hCursor As Long

  调用之后,Ver.dwPlatformId 的值可用判断作业系统平台 - 95 或 NT,如下表:

VER_PLATFORM_WIN32s Win32s - 让 Windows 3.1 可执行 32 位元应用程序的平台
VER_PLATFORM_WIN32_WINDOWS Windows 95, 98
VER_PLATFORM_WIN32_NT Windows NT

  除了 Ver.dwPlatformId 之外, Ver.dwMajorVersion 及 Ver.dwMinorVersion 可用来判断版本,以 Windows 95 为例, Ver.dwMajorVersion 等于 4, 而 Ver.dwMinorVersion 等于 0, 表示 Windows 95 是 4.0 版。




Google可穿戴:详解Android Wear的十大功能 初创企业非技术人员的迷思 【OSTC讲师专访】王兴博:Genesis-3D,3D开源游戏引擎 Facebook发布开源项目Tweaks,让iOS应用开发更加便捷 移动开发创业团队再下一城!UCloud与飞流战略合作 【走进支付宝】即将开场,问题大征集! 开发者薪资调查:半数开发者工作十年方可迎来好“薪”情 沟通更畅快 HipChat推出1对1视频和屏幕共享功能 AMD宣布支持DirectX 12 为游戏开发者带来更多福利 开发者薪资调查:2013年哪种编程语言最赚钱? 苹果挖墙脚未果,黑莓高管跳槽被起诉 不看不知道:六个超大规模Hadoop部署案例 豌豆荚发布应用内搜索技术协议 兼容App Indexing Oculus 21岁鬼才创始人:收购不等于改变 Unite China 2014课程解析:Unity教育行业专场免费开放 Instagram技术窥探,助你打造响应式App 切勿妄谈Hadoop,以及4个数据管道打造实践 一周消息树:雨果·巴拉与小米的那些事儿 《近匠》轻邮联合创始人Wesley:移动App要有撼动企业服务的野心 Facebook开源MySQL分支,谷歌、LinkedIn、Twitter等大拿捧场 淘宝明风:基于Graphx的图计算实践分享 调查显示:2015年Android将统治全球操作系统 初创公司最爱使用的那些开发工具 仙剑之父姚壮宪强势加盟Unity游戏及应用大赛 智能可视化平台:DCOS之数据中心抽象 一周热点:5美分/GB的开源存储系统,及硬盘质量“最差”的希捷 英特尔收购可穿戴技术公司BASIS Science 设计移动App的十大技巧 皮皮网陈超:易用与性能兼备,Spark蓬勃发展! Sahara顺利毕业,将加速OpenStack与Hadoop的融合 十大将拯救地球的开源硬件项目 请高手帮帮我!!!! jbuilder4的enterprise setup需要weblogic51,但我的是weblogic6,应该怎样才能让jbuilder支持6啊? 关于数据库的并发操作 谁知道哪里有vb下载? 哪有可下载的AUTOCAD2000 如何用VB实现存折的打印???? 请教给TImage加滚动条的问题 我和她在一起的话,会开心吗 请大家看看这条语句有什么错? 关于isdn在win2000下共享的问题 各位水友,有力的出力,没力的看看,拜托 请从位高手帮小弟解决一个棘手的问题……………………多谢!!!!!!! ALLTEC(荔枝)兄弟,兄弟我接帖太快 :( 請這邊來. ★★★ 救命啊! VC 用ODBC访问 Access 数据库的问题 guo->你在www.linuxforum.net中叫什么?有个guoemail是你吗? 软件发布:市场摊位租赁管理系统Ver1.0 软件发布:量和单位转换软件(免费版) 软件发布:五笔快打 在listview中的各个记录listitem中,有没有双击记录的事件 软件发布:伏羲服装鞋业购销存管理系统 软件发布:进销存商务管理pcft-jxc 征集各地童谣.唤醒儿时记忆! 今天我请客! 有关vb调用excel的问题! 有没有关于BDE的单独的分发程序? VB中报表预览打印能不能实现象EXCEL中一样的“按比例缩放”?如何实现? 单机版流量统计 关于Delphi6的安装问题 动态计算公式怎么实现?? 常用的英文字体是什么? 在通信过程中怎样做到防监听、防篡改? 各位大虾现欲用java开发一套网上投票表决系统 应该看什么书?用什么开发工具?(一定给分!) 关于winsock的问题,急急 怎样使用VB6中TREEVIEW控件? 我真的要疯了! 这里有很多Delphi6的控件! 如何在ASP中传递多个参数?displaymsg.asp?page=1在后面我还想加另外一个参数 有没有喜欢画漫画的? 如何得到ActiveX控件的窗口句柄 请问mif文件格式以及、读写方法?高分求解 sco unix的root口令忘了,谢谢. 在PowerBuilder中使用Microsoft Web浏览器控件 ,这个控件在ole中怎么没有啊? 急盼有人答复!!!!!! 急!急!编译exe时出现:link errors提示 具体提示:create of executable file failed? 小笨笨一问 年年岁岁花相似,岁岁年年人不同 VC++初学者的几个大烦恼!(苦呀,谁来拯救我这个VC小兵?) 请教在DELPHI中调用API发送EMAIL的问题!!!!! 有谁知道没有封闭25端口的美国ISP的地址信息??? 水园的过去现在未来 -- 座谈一下 哭笑沉默怒骂攻击噌分拉关系白脸黑脸等等都欢迎 高分求购速达软件单据编辑的DBGrid组件或设计思想! 求2道数学题的解法1.已知非空集合A={(x,y)|(a*2-1)x+(a-1)y=15},B={(x,y)|y=(5-3a)x-2a}.若A∩B=空集,求a的值.2.已知集合A={x|x*2-4mx+2m+6=0,x∈R},B={x|x<0,x∈R},若A∩B≠空集,求实数m的取值范围.a*2表示a 用方程和式子做,最好再简单的讲一下方法.张师傅加工一批零件,原计划每天加工50个,为了提前10天完成,他实际每天加工75个,张师傅实际多少天完成任务? 有意者,进.位少年选手,顺风跑90米用10秒;同样的风速下,逆风跑70米,也用10秒钟,无风时,他跑100米需要 时间. 面积为49平方米的长方形的周长是多少?.注意是长方形,不是正方形 给个准确的数啊,还有解法 1.如图a、b,是学校游泳池的平面图.比例尺都是1:1000.请观察这两个游泳池,并计算这两个游泳池的实际面积.如果你去游泳,现a有40人,b有100人,你准备到那个池中去游泳?(两问皆需算式) 育才小学一年级有300人,二年级学生人数是一年级的六分之五,又是全校学生人数的五分之一,全校有多少人?张阿姨买了一套服装一共用去380元,其中裤子的价钱是上衣的价钱的三分之二,裤子比 下列结论错误的是()A.长度之比为1:2:3的三角形是直角三角形B.三个边长之比为3:4:5的三角形是直角三角形C.三个边长之比为8:16:17的三角形是直角三角形D.三个角度之比为1:1:2的三 小学六年级语文,数学题,急啊!谁帮帮我.回答得好我会加分的.数学:找规律:4,2,1,2分之1,4分之1,(),(),() 8分之1,32分之1,4分之1,16分之1,(),(),()应用题:1,一个长方形的宽是7分之5 (要求:保证正确,要有答和综合算式)果园里有一些苹果,上午运走了三分之一,下午运走了120千克,这时已经运走的占全部苹果质量的八分之三,这批苹果一共有多少千克?新学期运来一批课本, 某公司托运物品,质量为a(a 1.有一堆圆锥形的沙土,底面周长37.68m,高5m,把这些土在宽15.7m的路上铺4cm厚,可以铺多少米?2.一个圆柱形玻璃容器的底面直径为12cm,它的里面装有一部分水,水中浸没着一个高9cm的圆锥形铁块,当 两袋大米共重120千克,从甲袋取出20%,乙袋取出3分之1,这时甲袋剩下的大米是原来两袋重量的2分之1.从乙袋取出大米多少千克? 在RT三角形ABC中,角C=90度,AD平行BC,角ABE=2角CBE,求证ED=2ABBD把角ABC分为角CBE和EBA,BE延长到D点,AD平行与三角形ABC底边BC,ADB也构成一个钝角三角形另外,不能用三角函数做,只能用几何 有浓度为30%的硫酸溶液若干,加了一定量的水后,稀释成浓度为24%的硫酸溶液,再加入同样多的水后,浓度将变成百分之几?能不能给我再详细点、我一定给多分。 (1)一个圆柱体比一个与它等底等高的圆锥体积12cm,这个圆锥体体积是多少立方厘米?( 应用题)(2)一个圆锥的底面周长扩大到原来的2倍,高不变,体积扩大到原来( )倍.(填空题)(3) 问一个初二的数学题,要解法! ! !有一个三位数,现将最左边的数字移到最右边,则比原来的数小45;又知百位数字的9倍比去掉百位数字后形成的两位数小3,试求原来的三位数是多少?要具体的解 )六(3)班男生人数比女生人数少20%,该班女生人数是男生人数的百分之几?男生人数是女生人数的百分之几?(急、、、、、) 难一点的小学六年级奥数题 小学三年级一题有多种解法的数学题 三个不同的整数a,b,m之间有如下关系b×m=a,能否说整数a一定能被整数b整除?简要说明理由 六年级奥数题呀 难一点 求助:三年级一道数学题的解法.有两个一样的信箴,如果一个信封里放1 张信纸,还剩50张信纸;如果每个信封放3张信纸,还剩50个信封.请问:有几个信封,有几张信纸?不要设未知数. 一张长方形铁板的宽是30cm,四个角各减去一个小正方形,做成一个高5cm的长方体容器,容积的300ml(铁皮厚度忽略不计),这张铁皮原来的面积的多少?(每一个数据怎么得来的都说清楚,我不懂) 求世界上的最难奥数题比较难的就行! 今年的8月份有5个星期日,4个星期一,那么今年的8月1日是星期几?我的方法是从31是星期日,倒推到3号是第一个星期日,那么1号就知道了.请问有没有更简便的方法? 学校的仪器室地面长4米、宽3米,有边长30厘米的A种方砖每块5元和边长40厘米的B种方砖每块8元,在可以拼接的情况下,用哪种方砖密铺地面比较便宜? 世界上最难的数学题是什么? 请帮忙解题:一个小学二年级的数学题2个小铅球比一个大铅球重1千克,8个小铅球比5个大铅球轻1千克,算一算,大小铅球各重多少千克?这是二年级的数学题,不能用方程解,但需要列出算式. ①一道应用题牙膏出口处直径为6毫米,小红每次刷牙都挤出1厘米唱的牙膏.这支牙膏可用30次.该品牌牙膏推出的新包装只是将出口处直径改为5毫米,小红还是按习惯每次挤出1厘米长的牙膏.这 世界上最难的数学题有哪些公认的难题 小学五年级数学奥数题的答案?1.( )÷12=1:( )=3/( )=0.5=( )%2.把0.13万改写成以“一”为单位的数是( ),读作( ).3.在括号里填上合适的单位名称.(1)一个鸡蛋重50 1)一汽车销售公司,今年2月份销售了300辆a型汽车,3月份销售a型汽车的数量比2月份下降了24%,预计4月份的销售要比3月份下降1.3个人百分点.问:4月份比2月份销售情况下降了百分十几?2)甲、乙 已知A、B、C、D、E、F六人分别看了5 、5、 6、 8、 8、 10场演出,每场演出的票价不变,成人票价是儿童票价的2倍,且均为整数元,已知这六人买票共支出1026元,求成人票单价 1.边长为自然数,面积为105的长方形.不同的长方形共有几种? 1、一项工程,甲乙两队合做每天能完成全部工程的40分之9,甲队单独做3天,乙队再单独做5天后,可以完成全部工程的8分之7,如果由乙队独做,需要多少天可以完成?2、一项工程,甲乙两人合做4天后, 1.甲乙俩车从相距450千米的俩地出发,相向而行,经过2.5小时俩车相遇.已知甲车比乙车一车每小时快10千米,求俩车的速度各是多少.2.小红读1本书,上午读了10分之1,下午比上午多读6页,这时已读的 几道小学五年级奥数题1、把一个小数的小数部分扩大4倍,这个小时就变成6.6,把这个小数部分扩大8倍,就变成例如9.2,原来这个小数是( )2、从1、2、3、4、5、6中选出四个数字组成一个四位 1.一个圆锥和一个圆柱的高相等,并且圆锥的底面直径是圆柱底面直径的6倍,求圆锥的体积是圆柱体积的多少倍?2.一个圆锥和一个圆柱的体积之比是9:5,底面积之比是4:3.求圆锥与圆柱高之比 超难的小学六年级数学题根据2/3=1-1/3,2/15=1/3-1/5,1/3+1/15=(1-1/3+1/3-1/5)*1/2,1/a(a+n)=(1/a-1/a+n)*1/n 求1/4+1/28+1/70+1/130等于多少 1、花生的出油率是30%,300千克花生可榨油多少千克?2、2.五年级2班今天有49人到校上课,出勤率为98%,全班共有学生多少人?3.风速在森林地带可比平原减低30%,如果风在森林地带速度每秒是4. 一条公路上有1、2两路公交车.3分钟后是1路车,7分钟后是2路车.小明从家出发走到公路边等车,那么小明等到哪路车的可能性更大? 题是这样的:有五只猴子,他们去摘桃子,把摘来的桃子放在一起了,晚上第一只猴子想起来要分,就把这堆桃子平均分为了5份,还剩一个,他就给吃了,过了一会,第二个猴子想起来了,又把第一只猴 几道小学五年级数学题1.办公桌抽屉的长是30厘米,宽50厘米,高15厘米.如果一张办公桌有2个这样的抽屉,做一张桌子需要木板( )平方米.2.“环球”牌涂料分大桶、小桶两中规格包装,大桶8升, 桌上摆有4张卡片,分别写有3、5、6、2并反扣在桌上.任意抽2张,如果组成的两位数是单数就算小明赢,否则就算小红赢,这样公平吗?为什么?我算了出来但总觉得不对, 超难小学六年级奥数题 一项工作,甲单独做要用10小时,乙单独做要用15小时,甲做完三分之一后,两人合作,还需要几小时完成? 六年级上册数学基础训练一道数学题(可能性)举一个例子,说明所发生事件的可能性是不相等的,应该分别是十分之一、五分之二和二分之一. 一个长方体的木料,长1米,将其截成三段变成三个小长方体.表面积比原来增加20平方分米.原来木料体积是多少? 求十道五年级奥数题加答案题目短一点 小学六年级数学题,是统计与可能性部分的,会的请进! (共3道,共15分,每道5分.)1.袋子里有红球和白球若干个,摸到红球的可能性是十分之七,如果把其中一个红球换成白球,摸到红球的可能性就 解比例:4:5=(x+5):10简算题:11*11*11-11*11-10 36*1111+8888*8大哥大姐帮帮忙!1 急.写出详细的算式,不用解题思路.一、填空.(每空0.(1)800706502读作(),四舍五入到“万”位约是( ).(2)250平方千米=( )公顷 1又1/6时是( )小时( )分(3)1.2=72/( )=( )%.(4)一 事件发生的可能性有( ) 某市居民生活用电基本价格为每度0.40元若每月用电量超过a度,则超过部分按基本电价的70%.(1)某用户5月份用电84度共交电费30.72元,求a的值.(2)若电费平均每度0.36元,6月份用电多少度某市 1.张大伯家有一堆小麦,堆成了圆锥形,张大伯量的其底面周长是9.42m,高是2m,这堆小麦体积是多少立方米?如果每立方米小麦的质量为700kg,这堆小麦有多少千克?2.小红去食品店买肉罐头,她看到有 五(1)班和五(2)班同学到扫卫生,没办负责打扫整个操场的一半,五一班完成了本班任务的 四分之三 ,五二班完成了本班任务的得五分之四,两个班分别打扫了操场的几分之几? 某市居民生活用电基本价格为每度0.40元若每月用电量超过a度,则超过部分按基本电价的70%.(1)某用户5月份用电84度共交电费30.72元,求a的值.(2)若电费平均每度0.36元,6月份用电多少度某市 要算式,不要方法6.某装订车间的三个工人要将一批书打包后送往邮局(要求每个包内所装书的册数同样多).第一次他们领来这批书的十二分之七,结果打了14个包还多35本.第二次他们把剩下的 (1)体育课上,某班全体男生分成甲、乙两组进行投篮练习,结束后发现:全体男生的平均投篮数是3个;如果乙组再多投7个,那么乙组男生的平均投篮数是4个.已知甲组7名男生共投了20个球.求 已知角A=2角B,角A的余角的3倍等于角B的余角,求角A,角B的度数
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn