delphi 判断WIN8 , WIN8.1 , WIN10 系统版本

今天测试了WIN8, WIN8.1, WIN10 系统下GetVersionEx 函数，居然取出来的版本都是6.2 。 于是网上查找各种获取内核版本号的方法， 终于找到几种有用的方法， 记录下来以作备忘。

方法1：   GetVersionEx, 该方法在WIN8.1以后无效  参看： https://msdn.microsoft.com/en-us/library/ms724451.aspx

procedure TForm1.Button1Click(Sender: TObject);
var
  str : string;
  ss : TStringStream;
  buf: array[0..6] of byte;
  OSVI : OSVERSIONINFO;
  version : string;
begin
  OSVI.dwOSversioninfoSize:=Sizeof(OSVERSIONINFO);
  GetVersionEx(OSVI);
  Edit4.Text := IntToStr(OSVI.dwMajorVersion) + ','
  +IntToStr(OSVI.dwMinorVersion)+ ','
  +IntToStr(OSVI.dwBuildNumber)+ ','
  +IntToStr(OSVI.dwPlatformId)+ ','  +OSVI.szCSDVersion;
end;

方法2： 通过FWMIService查询系统表Win32_OperatingSystem, 该方法可以正常读取系统版本WIN8(6.2), WIN81(6.3), WIN10(10)

functio