我正在使用此代码来检测PC上的
WindowsVersion.
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
解决方法
这种行为的原因是XP兼容模式,Delphi 7 IDE在兼容模式下运行.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。