WinAPI: GetVersionEx - 获取系统版本详细信息

//声明:
GetVersionEx(
  var lpVersionInformation: TOSVersionInfo {参数是一个结构}
): BOOL;						

//结构 TOSVersionInfo 是 _OSVERSIONINFOA 的重命名
_OSVERSIONINFOA = record
  dwOSVersionInfoSize: DWORD;              {结构大小}
  dwMajorVersion: DWORD;                   {主编号}
  dwMinorVersion: DWORD;                   {次编号}
  dwBuildNumber: DWORD;                    {建立编号}
  dwPlatformId: DWORD;                     {作业平台}
  szCSDVersion: array[0..127] of AnsiChar; {更多说明}
end;

{另外参数4(作业平台)可能的取值是:
  VER_PLATFORM_WIN32s = 0;
  VER_PLATFORM_WIN32_WINDOWS = 1;
  VER_PLATFORM_WIN32_NT = 2;
  VER_PLATFORM_WIN32_CE = 3;
  
  我没装 Vista.
}


//举例:
var
  OsInfo: TOSVersionInfo;
const
  s = '主编号: %d' + sLineBreak +
      '次编号: %d' + sLineBreak +
      '建立编号: %d' + sLineBreak +
      '作业平台: %d' + sLineBreak +
      '更多说明: %s';
begin
  OsInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo); {先根据大小要内存}

  GetVersionEx(OsInfo);
  ShowMessage(Format(s, [OsInfo.dwMajorVersion,
                         OsInfo.dwMinorVersion,
                         OsInfo.dwBuildNumber,
                         OsInfo.dwPlatformId,
                         OsInfo.szCSDVersion]));
end;

//效果图:

---