function GetOSMajorVersion: integer;//获取操作系统主版本号
var osVerInfo: TOSVersionInfo;
begin
Result := 5; //默认是xp的主版本号
osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if GetVersionEx(osVerInfo) then
Result := osVerInfo.dwMajorVersion;
end;
说明:
主版本号为5的操作系统:windows 2000, xp, Server 2003, Server 2003 R2
主版本号为6的操作系统:windows Vista, Server 2008, Server 2008 R2, Windows 7, Server 2012, Windows 8, Server 2012 R2, Windows 8.1
主版本号为10的操作系统:windows 10, Server 2016