取windows操作系统类别源码

揰掵佲

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集_启动窗口
   
4. 
   
5. .子程序 _按钮1_被单击
   
6. 
   
7. 编辑框1.内容 ＝ 取操作系统类型 ()
   
8. 
   
9. .子程序 取操作系统类型, 文本型, 公开
   
10. .局部变量 lnVer, 整数型
    
11. .局部变量 lnVerNum, 双精度小数型
    
12. .局部变量 lText, 文本型
    
13. 
    
14. lnVer ＝ 右移 (左移 (GetVersion (), 16), 16)
    
15. lnVerNum ＝ 位与 (lnVer, 255) ＋ 右移 (位与 (lnVer, 65280), 8) ÷ 10
    
16. .判断开始 (lnVerNum ＝ 5)
    
17. lText ＝ “Windows 2000”
    
18. .判断 (lnVerNum ＝ 5.1)
    
19. lText ＝ “Windows XP”
    
20. .判断 (lnVerNum ＝ 5.2)
    
21. lText ＝ “Windows Server 2003”
    
22. .判断 (lnVerNum ＝ 6)
    
23. lText ＝ “Windows Vista”
    
24. .判断 (lnVerNum ＝ 6.1)
    
25. lText ＝ “Windows 7”
    
26. .判断 (lnVerNum ＝ 6.2)
    
27. 
    
28. lText ＝ “Windows 8”
    
29. .默认
    
30. lText ＝ “未知操作系统”
    
31. .判断结束
    
32. 返回 (lText)

复制代码

无极超哥

不错啊！！！！！

SJJ

点赞！