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

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 版。




电脑上的网址怎么样复制到手机 创客天下——《Make》及Maker Faire创办人、O'Reilly Media创始人Dale Dougherty专访 《近匠》aGlass团队:透析眼控技术的价值 一周消息树:超级充电器来袭,30秒可为手机充满电 北森CTO张庆化:利用Spark实现数据驱动价值 大公网冯咀志:站内搜索系统的PowerLinux迁移实践 2014移动开发者必备的十大应用测试工具 前《连线》主编Chris Anderson:创客就要DIT UC多屏战略 推出电脑版和电视版浏览器 “全国云计算大数据创新项目评选”征集活动正式启动 【走近院士】李伯虎:云制造技术的应用及发展 一周热点: Twitter的下一代分布式数据库Manhattan 专访微软陆奇:大转型中最难的是文化的改变 【CTO俱乐部走进腾讯】问题征集进行中 颠覆移动营销世界的女王Yunha Kim为女性CEO正名 Google揭露“仙女座”虚拟网络,及分散和集中架构之辩 DHTMLX Touch:开源的HTML5和JavaScript框架 Supercell下一城:《海岛奇兵》续写芬兰手游传奇 开发者盛宴 2014 Unity亚洲开发者大会盛大开幕 微软全球中国云业务总经理:云落地中国的最大难题 PTVS 2.1 Beta版发布 Visual Studio的Python工具 【走近院士】李兰娟:云计算与大数据将成为医疗改革利器 迭代不等于学习,聚类分析也不等于机器学习 Office大肆杀戮,已攻下Chrome Web Store Bug都补好了?Google发布Android 4.4.3更新 微软被传收购Xamarin 强势推进移动新战略 挑战传统金融业务 Facebook进军移动支付领域 亚马逊AWS需解决的五项问题 腾讯自曝:大数据平台的秘密 继Cloudera之后,MapR宣布对Spark的完全支持 企业实施商务智能的6个致命错误 寻找解决方案 如何把几条sql语句全成一条? 友情提示:多线程浏览器弹出窗口的问题 点网页中的文件下载,直接在浏览器中打开了,我想点击下载后弹出对话框,然后保存. 求救,页面文字的大小如何设置? 关于SQL语句的优化…… 怎么判断一个Input type= text中的数字是不是浮点数? 哪位大哥有关于操作系统中文件系统设计的实例文档,(急用)谢谢。 有关asp中,后台编辑新闻时,上传多图片,如何在前台显示的问题 一定给分,初学java,请问java开发平台的比较 weblogic及EJB属于中间层的吗?( 请问SQLServer数据更新速度与系统配置之间关系的问题 问题还是没有得到解决,请csdn高手进来看看.(在线等!) 请大家帮忙~~~~~ 添加一个矩形框用什么函数,在上面添加文字、颜色呢? 拜托!请问全面学习J2EE一共要装哪些软件?谢谢! 这是我在本机上用ROUTE PRINT出来的内容,请高手们指点! 在线送分!!!谁能帮我解决分页的问题 请问有没有什么简便的方法在数组里插入一条纪录。 打印打印 如何通知一个正在Sleep(INFINITE)的线程结束运行? 小问题 c语言基础问题 上海的朋友!请进来说说如果你/*未来*/女朋友或男朋友第一次来上海,你会带他或她去哪些地方玩??有七到十天时间 请问长时间用光驱放DVD会不会损伤硬盘? 急救 vj6 中如何调用sql数据库 谁能告诉我早期LINUX内核的源代码和C编译器的源代码,哪能找到!谢谢! DB2安装问题 有谁知道北京数字证书认证中心是干吗?他们说的什么信息加密、网上作业身份识别、BGC是什么回事?跟服务器有关吗? 在SQL Server中导库时出现DLL错误,怎么回事 将int型转化为字符型用什么函数? 谁能告诉我早期LINUX内核的源代码和C编译器的源代码,哪能找到!谢谢!要多少分都给! 500分求菜单功能。 很急的问题!希望大家帮忙! jb8中类找不到了??? 请教高手:如何让label显示在text、button等的上面? 新手请高手帮忙了~~~ 谢谢~~~ 500分求菜单功能。 修改数据,提交保存老报错,纳闷~~~ 急!在RED HAT LINUX中怎么配置POP和STMP服务器? 散分呵呵 是真还是假,群众的眼睛是雪亮的! 求助:XP和2003双操作系统,XP用PQ分区后在2003里找不到? 500分求菜单功能。 treeview控件,如何让其点击结点后再从数据库中取得这个节点的下一层节点? 如何在SQL SERVER 2000导入mis.bak文件? HELP!一道规划问题的优化!源代码 虚心的小弟,散分(分不多) 在线等待!!sql 无法登陆 500分求菜单功能。 用VC写的dll在vb上怎么用? 一件衣服现在的价格是280元,比原来的价格降低了30%.原来的价格是多少元? 社会是螺旋状上升的形式发展变化的吗? 那位女士是你母亲吗 的英语 在线,英语!对划线部分提问①I showld buy _some large size shoes__ _里面的为划线部分①I showld buy _some large size shoes_②There is _much_ watch in the lake③There are _two_ people in the ro 1.在一标准大气压下,若用水来做托里拆利试验,那么大气压大约能支持 m高的水柱2.人在高原地区呼吸困难,吸气时肺的容积要扩张的更 一些,从而使肺内的气压变得更 一些.3.一位小朋友的氢气 密度为ρ木=0.6×103㎏/m3的长方形木块,长a=0.4m,宽b=0.2m,高c=0.1m.⑴当木块漂浮在水面上时,它露出水面部分的体积是多少?打错了木块密度,应为0.6*100kg/m3 影片秋收起义的大全主要内容 数奥题 快速!明天下午上课,求你们了!1 甲乙两人环绕周长是400米的跑道跑步,如果两人从同一地点出发背向而行经过两分相遇;如果两人从同一地点同向而行,那么经过20分钟两人相遇、已知甲 无题目要求的2000字以上作文要原创2000字以上的,3000字更好 .要是能从网上抄袭一篇 我还有必要来问?我明天就用呢 本来对知道里的东西就没什么好印象,现在更加鄙视了 求一篇文章,具体就是银行青年员工如何如何努力工作,适应工作的,要大概2000字最好有具体的事例,谁谁谁努力练五笔小键盘,谁谁谁努力推销产品……谁能帮我弄一篇的话我所有的积分全部都 中国文化的发展是一种螺旋上升的形式吗 中国军方就日舰机干扰我西太演习提出严澳骑车者频遭喜鹊袭击 上演“愤怒小鸟安倍将亲自为救人中国留学生严俊颁发感“甲壳虫”乐队主唱列侬儿时故居48万日本一男子弑母弃尸 藏尸冰箱月余终败日国会议员山本太郎向天皇递交书信 或韩国防部:暂不签署《韩日军事情报保护韩资料称日反韩示威3年激增10倍 口美华裔留学生派对后公寓猝死 疑酒精中日本“菜鸟”教师多:不会点火柴不敢拿纽约遭飓风袭击一周年 数千灾民仍无家李小鹏晒女儿萌照遭“疯抢” 网友:出火箭VS勇士前瞻:魔登缺席乃烟雾弹?外媒:日媒报道被政府严密控制 新闻自东北两条高铁启用冬季运行图 时速下降沈铁松原至陶赖昭铁路正式开通运营中国11月份银行卡消费信心指数环比下德汇融资租赁有限公司落户上海自贸区内蒙古:妻子怀疑丈夫有外遇在情敌家放湖南一省人大代表组建“地下出警队”公德国宝马公司高层更新换代记者手记:“通往南极的大门” 探访新修罗传说那些最初爱的时光荣誉勋章官场潜规则滚滚红尘二十年幻灭之界争华族崛起都市之神级玩家灵农传冷战军工帝国抗战之佣兵无敌采石矶旅游圆明园狮子林旅游大水法旅游鉴碧亭旅游橘园旅游唐槐旅游壶天阁旅游金沙滩度假村旅游玻璃博物馆旅游白房子旅游嘎洒旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘