获取Windows版本
问题说明
任何人都可以帮助我检测用户可能使用的Windows版本？
Can anyone help me detect which version of Windows the user may be using?
我已经看到一些例子来做到这一点，但是Vista / 7操作系统。
I have seen some examples to do this, but they are not updated for Vista/7 Operating Systems.
此外，检测操作系统是否在x32或x64架构上运行会很有用。
Additionally it would be useful to detect if the OS is running on x32 or x64 architecture.
正确答案
在XE2上引入了一个新课程来处理这个问题： TOSVersion 。
On XE2 a new class was introduced to deal with this: TOSVersion.
- 读取
TOSVersion.Architecture以检查32或64位操作系统。
- 读取
TOSVersion。平台来检查Windows或Mac。
- 阅读
TOSVersion.Major和
读取TOSVersion.Name以获取基本的产品名称，例如Windows 7。
- 读取
TOSVersion.ToString以获取完整的产品名称，例如版本。 Windows 7 Service Pack 1（版本6.1，Build 7601,64位版本）。
- Read
TOSVersion.Architectureto check for 32 or 64 bit OS. - Read
TOSVersion.Platformto check for Windows or Mac. - Read
TOSVersion.MajorandTOSVersion.Minorfor version numbers. - Read
TOSVersion.Nameto obtain the basic product name, e.g. Windows 7. - Read
TOSVersion.ToStringto obtain the full product name with version, e.g. Windows 7 Service Pack 1 (Version 6.1, Build 7601, 64-bit Edition).
对于旧版本的Delphi，我推荐以下内容：
For older versions of Delphi I recommend the following:
为了检查2000，XP，Vista，7，我建议您阅读 Win32MajorVersion 和 Win32MinorVersion 。
In order to check for 2000, XP, Vista, 7 I suggest you read Win32MajorVersion and Win32MinorVersion.
- major.minor = 5.0 => Windows 2000
- major.minor = 5.1 => Windows XP
- major.minor = 5.2 => Windows 2003 Server或XP64
- major.minor = 6.0 => Windows Vista / 2008服务器
- major.minor = 6.1 => Windows 7/2008服务器R2
- major.minor = 5.0 => Windows 2000
- major.minor = 5.1 => Windows XP
- major.minor = 5.2 => Windows 2003 server or XP64
- major.minor = 6.0 => Windows Vista/2008 server
- major.minor = 6.1 => Windows 7/2008 server R2
相同的信息可在 MSDN ，但上述来自我的头！
The same information is available on MSDN, but the above came from my head!
如果你想要非常det产品信息不足，需要更多的工作。沃伦的回答为获得这些信息提供了一条很好的途径。如果你想要测试能力，那么版本号就可以了。
If you are wanting very detailed product information then that takes a bit more work. Warren's answer gives one good route to obtaining that information. If you are wanting to test capability then version numbers are fine.
使用 CheckWin32Version 来检查当前操作系统是否超过了某个版本级别。虽然您应该检查该函数在Delphi中是否正常工作，因为在Delphi 6及更早版本中该函数的实现是不正确的。
Use CheckWin32Version to check if the prevailing OS exceeds a certain version level. Although you should check that the function works correctly in your Delphi since the implementation of that function in Delphi 6 and earlier was incorrect.
要了解本机操作系统架构（32或64位），请使用 GetNativeSystemInfo 功能。此功能在较旧的操作系统上不可用，因此您应该使用 GetProcAddress 显式加载它。测试 wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64 以检查64位操作系统。
To find out what the native OS architecture is (32 or 64 bit), use the GetNativeSystemInfo function. This function is not available on older operating systems so you should load it explicitly with GetProcAddress. Test for wProcessorArchitecture=PROCESSOR_ARCHITECTURE_AMD64 to check for 64 bit OS.
这篇好文章是转载于：学新通技术网
