Averiguar en qué versión de Windows se ejecuta nuestro programa

[dec]

Con esta serie de funciones puede averiguarse la versión de Windows en la que nuestro programa se estuviera ejecutando:

Código Delphi [-]
function EsWindows95 : boolean;
var
  OVI: TOSVersionInfo;
begin
  Result := false;
  OVI.dwOSVersionInfoSize:=
    SizeOf(TOSVersionInfo);
  if (GetVersionEx(OVI)) then
    Result := (OVI.dwMajorVersion = 4)
      and (OVI.dwMinorVersion = 0);
end;

function EsWindows98 : boolean;
var
  OVI: TOSVersionInfo;
begin
  Result := false;
  OVI.dwOSVersionInfoSize:=
    SizeOf(TOSVersionInfo);
  if (GetVersionEx(OVI)) then
  Result := (OVI.dwMajorVersion = 4)
    and (OVI.dwMinorVersion = 10) and
      not (OVI.szCSDVersion[1] = 'A');
end;

function EsWindows98SE : boolean;
var
  OVI: TOSVersionInfo;
begin
  Result := false;
  OVI.dwOSVersionInfoSize:=
    SizeOf(TOSVersionInfo);
  if (GetVersionEx(OVI)) then
  Result := (OVI.dwMajorVersion = 4)
    and (OVI.dwMinorVersion = 10) and
      (OVI.szCSDVersion[1] = 'A');
end;

function EsWindowsME : boolean;
var
  OVI: TOSVersionInfo;
begin
  Result := false;
  OVI.dwOSVersionInfoSize:=
    SizeOf(TOSVersionInfo);
  if (GetVersionEx(OVI)) then
    Result := (OVI.dwMajorVersion = 4)
      and (OVI.dwMinorVersion = 90);
end;

function EsWindowsNT : boolean;
var
  OVI: TOSVersionInfo;
begin
  Result := false;
  OVI.dwOSVersionInfoSize:=
    SizeOf(TOSVersionInfo);
  if (GetVersionEx(OVI)) then
    Result := (OVI.dwMajorVersion < 4);
end;

function EsWindows2000 : boolean;
var
  OVI: TOSVersionInfo;
begin
  Result := false;
  OVI.dwOSVersionInfoSize:=
    SizeOf(TOSVersionInfo);
  if (GetVersionEx(OVI)) then
    Result := (OVI.dwMajorVersion = 5)
      and (OVI.dwMinorVersion = 0);
end;

function EsWindowsXp : boolean;
var
  OVI: TOSVersionInfo;
begin
  Result := false;
  OVI.dwOSVersionInfoSize:=
    SizeOf(TOSVersionInfo);
  if (GetVersionEx(OVI)) then
    Result := (OVI.dwMajorVersion = 5)
      and (OVI.dwMinorVersion = 1);
end;