《取操作系统版本信息》模块

原我能 · 发表于 2010-2-3 21:22:00

别人的源码，我只做了封装，希望原作者支持，要是有注解的话，对初学者了解DLL，很有帮助，可惜我不懂。。。。。

.版本 2
.子程序取操作系统版本信息, 文本型.局部变量信息, OSVERSIONINFO.局部变量 OsName, 文本型
信息.dwOSVersionInfoSize ＝ 148.如果真 (GetVersionEx (信息) ≠ 0) .如果真 (信息.dwPlatformId ＝ 1) .如果真 (信息.dwMinorVersion ＝ 0) OsName ＝ “Windows 95” .如果真结束 .如果真 (信息.dwMinorVersion ＝ 10) OsName ＝ “Windows 98” .如果真结束 .如果真 (信息.dwMinorVersion ＝ 90) OsName ＝ “Windows Mellinnium” .如果真结束
.如果真结束 .如果真 (信息.dwPlatformId ＝ 2) .如果真 (信息.dwMajorVersion ＝ 3) OsName ＝ “Windows NT 3.51” .如果真结束 .如果真 (信息.dwMajorVersion ＝ 4) OsName ＝ “Windows NT 4.0” .如果真结束 .如果真 (信息.dwMajorVersion ＝ 5) .如果真 (信息.dwMinorVersion ＝ 0) OsName ＝ “Windows 2000” .如果真结束 .如果真 (信息.dwMinorVersion ＝ 1) OsName ＝ “Windows XP” .如果真结束 .如果真 (信息.dwMinorVersion ＝ 2) OsName ＝ “Windows 2003” .如果真结束
.如果真结束
.如果真结束返回 (OsName ＋ “ ” ＋到文本 (信息.szCSDVersion) ＋ “ ” ＋到文本 (信息.dwMajorVersion) ＋ “.” ＋到文本 (信息.dwMinorVersion) ＋ “.” ＋到文本 (信息.dwBuildNumber)).如果真结束返回 (“”)

复制代码

取操作系统版本信息.e (4.51 KB, 下载次数: 122)

波波天下 · 发表于 2010-2-4 08:19:07

支持你的劳动

977945676 · 发表于 2012-2-27 22:10:05

{:3_243:}{:3_235:}

凌木 · 发表于 2012-3-26 11:16:57

fcrf支持一个

iq2000 · 发表于 2012-6-19 09:07:02

不错不错感谢分享

RebelSky · 发表于 2012-6-19 10:57:46

这个还是有用的啊

sztoshen · 发表于 2012-7-11 09:04:42

可以用吗？有个变量怎么不能识别啊？是要高级版本的易语言吗？

电视费 · 发表于 2012-7-18 20:10:44

..................................

151515 · 发表于 2012-7-21 18:49:44

我的妈啊。这不是小牛的源码么？

78971368 · 发表于 2012-8-2 13:18:15

看看

		自动登录	找回密码
密码			注册

[易语言模块源码] 《取操作系统版本信息》模块