[dec]

Hola,

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;
 
 { ············································································ }