系统_取系统版本（）问题反馈

applek

在6.5版本上，系统_取系统版本，设置是否带名称，能正确取到系统版本，例如专业版，教育版等信息。在后续版本，以及最新8.0.5版本，设置后，无法获取到系统版本名称。

wuwenhao

对的 我的win10企业长期版 也取不出来  @项目部004

171000694

萧阳天 发表于 2020-3-21 11:17
@项目部004

有没有完整源码

sofs

这个很多时候都有问题，都是直接返回：获取失败，请检查版本
平均4到5台电脑里就有1台识别不出来是什么系统。

萧阳天

@项目部004

1. .版本 2
   
2. 
   
3. .子程序 系统_取系统版本, 文本型, 公开, 支持获取win98、win2000 、winXP、win2003 、win2008 、win7 、win8 、win2012、win8.1 、win10 系统版本。
   
4. .参数 参_主版本, , 参考 可空, 变量储存返回值
   
5. .参数 参_次版本, , 参考 可空, 变量储存返回值
   
6. .参数 参_是否带名称, 逻辑型, 可空, 是否带版本名称描述，如 专业版，企业版等
   
7. .参数 参_是否取位数, 逻辑型, 可空, 操作系统位数，如32位或64位
   
8. .参数 参_取SP版本号, 逻辑型, 可空
   
9. .参数 参_取内部版本, 逻辑型, 可空, build内部版本
   
10. .局部变量 m_osvi, OSVERSIONINFOEX
    
11. .局部变量 m_si, SYSTEM_INFO
    
12. .局部变量 m_dwType
    
13. .局部变量 m_system, 文本型
    
14. .局部变量 m_version, 文本型
    
15. .局部变量 m_dwMajorVersion, 整数型
    
16. .局部变量 m_dwMinorVersion, 整数型
    
17. .局部变量 m_dwBuildNumber, 短整数型
    
18. .局部变量 m_retrun, 文本型
    
19. .局部变量 m_isWOW64, 逻辑型
    
20. .局部变量 m_szCSDVersion, 文本型
    
21. .局部变量 m_CurrentBuild, 文本型
    
22. .局部变量 m_strMark, 文本型
    
23. 
    
24. m_osvi.dwOSVersionInfoSize ＝ 156
    
25. .如果真 (GetVersionEx (m_osvi))
    
26.     GetSystemInfo (m_si)
    
27.     IsWow64Process (-1, m_isWOW64)
    
28.     RtlGetNtVersionNumbers (m_osvi.dwMajorVersion, m_osvi.dwMinorVersion, m_dwBuildNumber)
    
29.     参_主版本 ＝ m_osvi.dwMajorVersion
    
30.     参_次版本 ＝ m_osvi.dwMinorVersion
    
31.     m_osvi.dwBuildNumber ＝ m_dwBuildNumber
    
32.     .判断开始 (m_osvi.dwMajorVersion ＝ 10)
    
33.         .判断开始 (m_osvi.dwMinorVersion ＝ 0)
    
34.             ' m_system ＝ 选择 (m_osvi.wProductType ＝ #VER_NT_WORKSTATION, “Windows 10”, “Windows Server 2016”)
    
35.             .如果 (m_osvi.wProductType ＝ #VER_NT_WORKSTATION)
    
36.                 m_system ＝ “Windows 10”
    
37.             .否则
    
38.                 m_system ＝ 取文本zc项 (#本地机器, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName”, )
    
39.             .如果结束
    
40. 
    
41.         .默认
    
42. 
    
43.         .判断结束
    
44. 
    
45.     .判断 (m_osvi.dwMajorVersion ＝ 6)
    
46.         .判断开始 (m_osvi.dwMinorVersion ＝ 0)
    
47.             m_system ＝ 选择 (m_osvi.wProductType ＝ #VER_NT_WORKSTATION, “Windows Vista”, “Windows Server 2008”)
    
48.         .判断 (m_osvi.dwMinorVersion ＝ 1)
    
49.             m_system ＝ 选择 (m_osvi.wProductType ＝ #VER_NT_WORKSTATION, “Windows 7”, “Windows Server 2008 R2”)
    
50.         .判断 (m_osvi.dwMinorVersion ＝ 2)
    
51.             m_system ＝ 选择 (m_osvi.wProductType ＝ #VER_NT_WORKSTATION, “Windows 8”, “Windows Server 2012”)
    
52.         .判断 (m_osvi.dwMinorVersion ＝ 3)
    
53.             m_system ＝ 选择 (m_osvi.wProductType ＝ #VER_NT_WORKSTATION, “Windows 8.1”, “Windows Server 2012 R2”)
    
54.         .默认
    
55. 
    
56.         .判断结束
    
57. 
    
58.     .判断 (m_osvi.dwMajorVersion ＝ 5 且 m_osvi.dwMinorVersion ＝ 0)
    
59.         m_system ＝ “Windows 2000”
    
60.         .如果 (m_osvi.wProductType ＝ 1)
    
61.             m_version ＝ “Professional”
    
62.         .否则
    
63.             .如果真 (位与 (m_osvi.wSuiteMask, 128) ＝ 0)
    
64.                 m_version ＝ “Datacenter Server”
    
65.             .如果真结束
    
66.             .如果 (位与 (m_osvi.wSuiteMask, 2) ＝ 0)
    
67.                 m_version ＝ “Advanced Server”
    
68.             .否则
    
69.                 m_version ＝ “Server”
    
70.             .如果结束
    
71. 
    
72.         .如果结束
    
73. 
    
74.     .判断 (m_osvi.dwMajorVersion ＝ 5 且 m_osvi.dwMinorVersion ＝ 1)
    
75.         m_system ＝ “Windows XP”
    
76.         .如果 (位与 (m_osvi.wSuiteMask, 512) ＝ 1)
    
77.             m_version ＝ “Home Edition”  ' “家庭版”
    
78.         .否则
    
79.             m_version ＝ “Professional”  ' “专业版”
    
80.         .如果结束
    
81. 
    
82.     .判断 (m_osvi.dwMajorVersion ＝ 5 且 m_osvi.dwMinorVersion ＝ 2)
    
83.         .判断开始 (GetSystemMetrics (89) ≠ 0)
    
84.             m_system ＝ “Windows Server 2003 R2, ”
    
85.         .判断 (位与 (m_osvi.wSuiteMask, 8192) ＝ 8192)
    
86.             m_system ＝ “Windows Storage Server 2003”
    
87.         .判断 (位与 (m_osvi.wSuiteMask, 32768) ＝ 32768)
    
88.             m_system ＝ “Windows Home Server”
    
89.         .判断 (m_osvi.wProductType ＝ 1 且 m_si.wProcessorArchitecture ＝ 9)
    
90.             m_system ＝ “Windows XP Professional x64 Edition”  ' Xp专业版64位系统
    
91.         .默认
    
92.             m_system ＝ “Windows Server 2003, ”
    
93.         .判断结束
    
94. 
    
95.     .判断 (m_osvi.dwMajorVersion ＝ 4 且 m_osvi.dwMinorVersion ＝ 10)
    
96.         m_system ＝ “Windows 98”
    
97.     .默认
    
98. 
    
99.     .判断结束
    
100.     .如果真 (m_osvi.dwMajorVersion ≥ 6)
     
101.         RtlGetProductInfo (m_osvi.dwMajorVersion, m_osvi.dwMinorVersion, 0, 0, m_dwType)
     
102.         .判断开始 (m_dwType ＝ 1)  ' 旗舰版
     
103.             m_version ＝ “Ultimate Edition”
     
104.         .判断 (m_dwType ＝ 2)  ' 家庭普通版
     
105.             m_version ＝ “Home Basic Edition”
     
106.         .判断 (m_dwType ＝ 3)  ' 家庭高级版
     
107.             m_version ＝ “Home Premium Edition”
     
108.         .判断 (m_dwType ＝ 4)  ' 企业版
     
109.             m_version ＝ “Enterprise Edition”
     
110.         .判断 (m_dwType ＝ 6)  ' 商业版
     
111.             m_version ＝ “Business Edition”
     
112.         .判断 (m_dwType ＝ 7)  ' 服务器标准版
     
113.             m_version ＝ “Standard”
     
114.         .判断 (m_dwType ＝ 8)  ' 服务器企业版
     
115.             m_version ＝ “Datacenter Edition”
     
116.         .判断 (m_dwType ＝ 9)  ' 小型服务器
     
117.             m_version ＝ “Small Business Server”
     
118.         .判断 (m_dwType ＝ 10)  ' 服务器企业版(完整的安装)
     
119.             m_version ＝ “Enterprise Edition”
     
120.         .判断 (m_dwType ＝ 11)  ' 入门版
     
121.             m_version ＝ “Starter Edition”
     
122.         .判断 (m_dwType ＝ 12)  ' 服务器xx中心版(核心安装)
     
123.             m_version ＝ “Datacenter Edition (core installation)”
     
124.         .判断 (m_dwType ＝ 13)  ' 服务器标准版(核心安装)
     
125.             m_version ＝ “Standard Edition (core installation)”
     
126.         .判断 (m_dwType ＝ 14)  ' 服务器企业版(核心安装)
     
127.             m_version ＝ “Enterprise Edition (core installation)”
     
128.         .判断 (m_dwType ＝ 15)  ' 一个企业级的平台
     
129.             m_version ＝ “Enterprise Edition for Itanium-based Systems”
     
130.         .判断 (m_dwType ＝ 16)  ' 商用公司版
     
131.             m_version ＝ “Business N”
     
132.         .判断 (m_dwType ＝ 17)  ' Web服务器(完整安装)
     
133.             m_version ＝ “Web Server (full installation)”
     
134.         .判断 (m_dwType ＝ 18)  ' 服务器群集版
     
135.             m_version ＝ “HPC Edition”
     
136.         .判断 (m_dwType ＝ 19)  ' 2008 R2 储存服务器版
     
137.             m_version ＝ “Windows Storage Server 2008 R2 Essentials”
     
138.         .判断 (m_dwType ＝ 20)  ' 服务器快速储存版
     
139.             m_version ＝ “Storage Server Express”
     
140.         .判断 (m_dwType ＝ 21)  ' 服务器标准储存版
     
141.             m_version ＝ “Storage Server Standard”
     
142.         .判断 (m_dwType ＝ 22)  ' 服务器储存组
     
143.             m_version ＝ “Storage Server Workgroup”
     
144.         .判断 (m_dwType ＝ 23)  ' 服务器储存企业版
     
145.             m_version ＝ “Storage Server Enterprise”
     
146.         .判断 (m_dwType ＝ 25)
     
147.             m_version ＝ “Small Business Server Premium Edition”
     
148.         .判断 (m_dwType ＝ 48)  ' 专业版
     
149.             m_version ＝ “Professional”
     
150.         .默认
     
151.             m_system ＝ “获取失败，请检查版本:” ＋ 到文本 (m_osvi.dwMajorVersion) ＋ “.” ＋ 到文本 (m_osvi.dwMinorVersion)
     
152.         .判断结束
     
153. 
     
154.     .如果真结束
     
155. 
     
156. 
     
157.     m_retrun ＝ m_system
     
158.     m_retrun ＝ 选择 (参_是否带名称, m_retrun ＋ “ ” ＋ 选择 (寻找文本 (m_retrun, m_version, , 假) ＝ -1, m_version, “”), m_retrun)
     
159.     m_retrun ＝ 选择 (参_是否取位数, 选择 (m_isWOW64, m_retrun ＋ “ x64”, m_retrun ＋ “ x86”), m_retrun)
     
160.     .如果真 (参_取SP版本号)
     
161.         m_szCSDVersion ＝ 到文本 (m_osvi.szCSDVersion)
     
162.         .如果真 (取文本长度 (m_szCSDVersion) ＝ 0)
     
163.             m_szCSDVersion ＝ 取文本zc项 (#本地机器, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\CSDVersion”, )
     
164.         .如果真结束
     
165.         m_strMark ＝ 选择 (取文本长度 (m_szCSDVersion) ＞ 2, m_szCSDVersion, “”)
     
166.     .如果真结束
     
167.     .如果真 (参_取内部版本)
     
168.         .如果 (m_osvi.dwBuildNumber ＝ 0)
     
169.             m_CurrentBuild ＝ 取文本zc项 (#本地机器, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentBuild”, )
     
170.         .否则
     
171.             m_CurrentBuild ＝ 到文本 (m_osvi.dwBuildNumber)
     
172.         .如果结束
     
173.         .如果 (m_strMark ≠ “”)
     
174.             m_strMark ＝ m_strMark ＋ “,Build:” ＋ m_CurrentBuild
     
175.         .否则
     
176.             m_strMark ＝ “Build:” ＋ m_CurrentBuild
     
177.         .如果结束
     
178. 
     
179.     .如果真结束
     
180.     .如果真 (m_strMark ≠ “”)
     
181.         m_strMark ＝ “ (” ＋ m_strMark ＋ “)”
     
182.     .如果真结束
     
183.     返回 (m_retrun ＋ m_strMark)
     
184. .如果真结束
     
185. 返回 (“”)
     

复制代码