windows - 获取 Windows 版本？

Question

谁能帮我检测用户可能使用的是哪个版本的 Windows？

我看过一些这样做的例子，但它们没有针对 Vista/7 操作系统进行更新。

此外，检测操作系统是在 x32 还是 x64 架构上运行也很有用。

提前致谢。

Answer 1

在 XE2 上引入了一个新类来处理这个问题:TOSVersion .

• 阅读 TOSVersion.Architecture 以检查 32 位或 64 位操作系统。
• 阅读 TOSVersion.Platform 以检查 Windows 或 Mac。
• 阅读 TOSVersion.Major 和 TOSVersion.Minor 以获得版本号。
• 阅读 TOSVersion.Name 获取基本的产品名称，例如Windows 7。
• 阅读 TOSVersion.ToString 以获得带版本的完整产品名称，例如Windows 7 Service Pack 1(版本 6.1，内部版本 7601，64 位版本)。

---

对于旧版本的 Delphi，我推荐以下内容:

为了检查 2000、XP、Vista、7，我建议您阅读 Win32MajorVersion和 Win32MinorVersion .

• major.minor = 5.0 => Windows 2000
• major.minor = 5.1 => Windows XP
• major.minor = 5.2 => Windows 2003 服务器或 XP64
• major.minor = 6.0 => Windows Vista/2008 服务器
• major.minor = 6.1 => Windows 7/2008 服务器 R2

相同的信息可在 MSDN 上找到，但以上内容来 self 的脑海!

如果您需要非常详细的产品信息，则需要多做一些工作。沃伦的回答提供了一条获取该信息的好途径。如果您想测试功能，那么版本号就可以了。

使用CheckWin32Version检查流行的操作系统是否超过某个版本级别。尽管您应该检查该函数在您的 Delphi 中是否正常工作，因为该函数在 Delphi 6 和更早版本中的实现是不正确的。

要找出 native 操作系统架构是什么(32 位或 64 位)，请使用 GetNativeSystemInfo功能。此函数在旧操作系统上不可用，因此您应该使用 GetProcAddress 显式加载它。测试 wProcessorArchitecture=PROCESSOR_ARCHITECTURE_AMD64 以检查 64 位操作系统。