admin管理员组

文章数量:1026989

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

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

本文标签： 主版操作系统DELPHIWindows

版权声明：本文标题：Delphi 获得Windows操作系统主版本号 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://it.en369.cn/jiaocheng/1727627868a767762.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。