编写代码获得操作系统的版本信息(GetVersionEx)

以下是使用 GetVersionEx 函数获取操作系统版本信息的示例代码：

#include <iostream>
#include <Windows.h>

int main() {
    OSVERSIONINFOEX osvi;
    ZeroMemory(&osvi, sizeof(OSVERSIONINFOEX));
    osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEX);
    GetVersionEx((OSVERSIONINFO*)&osvi);

    std::cout << "Operating System Version: " << osvi.dwMajorVersion << "." << osvi.dwMinorVersion << "." << osvi.dwBuildNumber << std::endl;

    return 0;
}

该程序将输出当前操作系统的主版本号、次版本号和构建号。注意，该函数已经被弃用，建议使用更现代的函数 GetVersionExA。

相关问题

编写代码获得当前用户名(GetUserName)、系统目录(GetSystemDirectory)、Windows所在目录(GetWindowsDirectory)、环境变量PATH的值等信息(ExpandEnvironmentStrings)，获得操作系统的版本信息(GetVersionEx)，不要使用GetVersionEx

好的，可以使用GetVersionEx函数的替代函数VerifyVersionInfo来获得操作系统的版本信息。下面是代码示例：

#include <iostream>
#include <Windows.h>

int main()
{
    // 获取当前用户名
    char username[UNLEN + 1];
    DWORD username_len = UNLEN + 1;
    GetUserNameA(username, &username_len);
    std::cout << "Current user: " << username << std::endl;

    // 获取系统目录
    char sys_dir[MAX_PATH];
    GetSystemDirectoryA(sys_dir, MAX_PATH);
    std::cout << "System directory: " << sys_dir << std::endl;

    // 获取Windows所在目录
    char win_dir[MAX_PATH];
    GetWindowsDirectoryA(win_dir, MAX_PATH);
    std::cout << "Windows directory: " << win_dir << std::endl;

    // 获取环境变量PATH的值
    char path[MAX_PATH];
    DWORD path_len = ExpandEnvironmentStringsA("%PATH%", path, MAX_PATH);
    if (path_len > MAX_PATH || path_len == 0) {
        std::cerr << "Failed to get PATH environment variable." << std::endl;
        return 1;
    }
    std::cout << "PATH: " << path << std::endl;

    // 获取操作系统版本信息
    OSVERSIONINFOEXA osvi = { sizeof(osvi) };
    DWORDLONG dwlConditionMask = 0;
    VER_SET_CONDITION(dwlConditionMask, VER_MAJORVERSION, VER_GREATER_EQUAL);
    VER_SET_CONDITION(dwlConditionMask, VER_MINORVERSION, VER_GREATER_EQUAL);
    VER_SET_CONDITION(dwlConditionMask, VER_SERVICEPACKMAJOR, VER_GREATER_EQUAL);
    osvi.dwMajorVersion = 10;
    osvi.dwMinorVersion = 0;
    osvi.wServicePackMajor = 0;
    if (VerifyVersionInfoA(&osvi, VER_MAJORVERSION | VER_MINORVERSION | VER_SERVICEPACKMAJOR, dwlConditionMask)) {
        std::cout << "Operating system version: Windows 10 or newer" << std::endl;
    }
    else {
        std::cout << "Operating system version: Older than Windows 10" << std::endl;
    }

    return 0;
}

在Delphi中如何编写代码来获取包括操作系统版本、硬件配置、网络状态在内的全面系统信息？

获取系统的详细信息在Delphi中是通过调用Windows API和相关组件来实现的。为了深入了解如何获取这些信息，推荐参考《获取系统信息的Delphi示例代码》。

参考资源链接：[获取系统信息的Delphi示例代码](https://wenku.csdn.net/doc/1fqc2qbx5u?spm=1055.2569.3001.10343)

首先，获取操作系统版本可以通过调用Windows API中的GetVersionEx函数。通过传递一个OSVERSIONINFO结构体给这个函数，我们可以得到操作系统的详细信息，如版本号、服务包号码等。示例代码如下：

var
  OsVersionInfo: TOSVERSIONINFO;
begin
  ZeroMemory(@OsVersionInfo, SizeOf(TOSVERSIONINFO));
  OsVersionInfo.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO);
  if GetVersionEx(OsVersionInfo) then
    // 此处可以根据需要处理获取到的信息
end;

其次，获取硬件配置，如主板信息，可以使用WMI（Windows Management Instrumentation）查询。在Delphi中，可以使用TWMIService组件来执行WMI查询，以获取系统硬件的详细信息。以下是一个获取主板序列号的示例：

var
  WMIQuery: IWbemObjectSet;
begin
  // 初始化WMI服务
  CoInitialize(nil);
  try
    // 创建WMI服务
    IWbemLocator := CoWbemLocator.Create;
    IWbemServices := IWbemLocator.ConnectServer('localhost', 'root\cimv2', '', '', 0, nil, nil);
    IWbemServices.ExecQuery('WQL', 'SELECT * FROM Win32_BaseBoard', WBEM_FLAG_FORWARD_ONLY + WBEM_FLAG_RETURN_IMMEDIATELY, nil, WMIQuery);
    if Assigned(WMIQuery) then
    begin
      while not WMIQuery.AtEndOfStream do
      begin
        WMIQuery.GetNextItem(IWbemObject);
        // 此处可以根据需要处理获取到的信息
      end;
    end;
  finally
    CoUninitialize;
  end;
end;

至于获取网络信息，可以通过调用GetAdaptersInfo函数来获取网络适配器的信息。示例代码如下：

var
  AdapterInfo: IP_ADAPTER_INFO;
begin
  ZeroMemory(@AdapterInfo, SizeOf(TIP_ADAPTER_INFO));
  if GetAdaptersInfo(@AdapterInfo, PCardinal(@AdapterInfo.NextAdapterAddress)^) = NO_ERROR then
  begin
    // 此处可以根据需要处理获取到的信息
  end;
end;

获取磁盘信息、注册表信息和电源信息的方法和上述类似，也是通过调用相应的Windows API函数来实现的。

最后，通过整合以上信息，我们可以构建一个全面的系统信息查看器。这些信息对于程序开发、系统维护以及故障诊断都是非常有用的。为了更好地理解和运用Delphi来获取这些系统信息，建议参考《获取系统信息的Delphi示例代码》。这本书提供了丰富的示例代码和详细解释，能够帮助你快速掌握如何在Delphi中获取和处理系统信息。

参考资源链接：[获取系统信息的Delphi示例代码](https://wenku.csdn.net/doc/1fqc2qbx5u?spm=1055.2569.3001.10343)