[TryRooM]

R.i.m.s.k.y., GetWindowsVersionEx винды 8, 8.1, 10

Код:

function ForWindows10(): Boolean;
var
  Version: TWindowsVersion;
begin
  GetWindowsVersionEx(Version);
  // Windows 10 version is 6.4 (workstation)
  if (Version.Major = 6)  and
     (Version.Minor = 4) and
     (Version.ProductType = VER_NT_WORKSTATION)
  then
    Result := True
  else
    Result := False;
end;

function ForWindows8One(): Boolean;
var
  Version: TWindowsVersion;
begin
  GetWindowsVersionEx(Version);
  // Windows 8.1 version is 6.3 (workstation)
  if (Version.Major = 6)  and
     (Version.Minor = 3) and
     (Version.ProductType = VER_NT_WORKSTATION)
  then
    Result := True
  else
    Result := False;
end;

function ForWindows8(): Boolean;
var
  Version: TWindowsVersion;
begin
  GetWindowsVersionEx(Version);
  // Windows 8 version is 6.2 (workstation)
  if (Version.Major = 6)  and
     (Version.Minor = 2) and
     (Version.ProductType = VER_NT_WORKSTATION)
  then
    Result := True
  else
    Result := False;
end;