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;


 
   


//效果图:

---