WinAPI: GetVersionEx - 获取系统版本详细信息
WinAPI: GetVersionEx - 获取系统版本详细信息
涂孟超 发表于3年前
WinAPI: GetVersionEx - 获取系统版本详细信息
  • 发表于 3年前
  • 阅读 1
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 十分钟定制你的第一个小程序>>>   

//声明:
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;
//效果图:

共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: