大佬教程收集整理的这篇文章主要介绍了delphi – Windows 8 Consumer Preview错误的主要版本?,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
function GetOS: String; var osVerInfo: TOSVersionInfo; majorVer,minorVer: Integer; begin Result := 'Unknown'; osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo); if GetVersionEx(osVerInfo) then begin majorVer := osVerInfo.dwMajorVersion; minorVer := osVerInfo.dwMinorVersion; case osVerInfo.dwPlatformId of VER_PLATFORM_WIN32_NT: {Mirosoft Windows NT/2000 } begin if majorVer <= 4 then Result := 'Win NT' else if (majorVer = 5) and (minorVer = 0) then Result := 'Win 2k' else if (majorVer = 5) and (minorVer = 1) then Result := 'Win XP' else if (majorVer = 6) and (minorVer = 0) then Result := 'Win Vista' else if (majorVer = 6) and (minorVer = 1) then Result := 'Win 7' else if (majorVer = 6) and (minorVer = 2) then Result := 'Win 8' end; VER_PLATFORM_WIN32_WINDOWS: { Windows 9x/ME } begin if (majorVer = 4) And (minorVer = 0) then Result := 'Win 95' else if (majorVer = 4) And (minorVer = 10) then begin if osVerInfo.szCSDVersion[1] = 'A' then Result := 'Win 98SE' else Result := 'Win 98'; end else if (majorVer = 4) And (minorVer = 90) then Result := 'Win ME' end; end; end; end;
出于某种原因,它说Windows8 Consumer Preview Build 8250(32位)是Windows XP – 主要版本5.我检查了它应该是版本6.2(根据windows8上的notepad.exE)这是一个错误还是有问题?顺便说一句.我的Windows 8是up2date.
有任何想法吗?
编辑:ScreenShot
以上是大佬教程为你收集整理的delphi – Windows 8 Consumer Preview错误的主要版本?全部内容,希望文章能够帮你解决delphi – Windows 8 Consumer Preview错误的主要版本?所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。