Averiguar la versión de Windows

La siguiente función nos devuelve la versión de Windows donde se está ejecutando nuestro programa:

function ObtenerVersion: String;
var
   osVerInfo: TOSVersionInfo;
   VersionMayor, VersionMenor: Integer;
begin
   Result := 'Desconocida';
   osVerInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo );

   if GetVersionEx( osVerInfo ) then
   begin
     VersionMenor := osVerInfo.dwMinorVersion;
     VersionMayor := osVerInfo.dwMajorVersion;

     case osVerInfo.dwPlatformId of
       VER_PLATFORM_WIN32_NT:
       begin
         if VersionMayor <= 4 then
           Result := 'Windows NT'
         else
           if ( VersionMayor = 5 ) and ( VersionMenor = 0 ) then
             Result := 'Windows 2000'
           else
             if ( VersionMayor = 5 ) and ( VersionMenor = 1 ) then
               Result := 'Windows XP'
             else
               if ( VersionMayor = 6 ) then
                 Result := 'Windows Vista';
       end;

       VER_PLATFORM_WIN32_WINDOWS:
       begin
         if ( VersionMayor = 4 ) and ( VersionMenor = 0 ) then
           Result := 'Windows 95'
         else
           if ( VersionMayor = 4 ) and ( VersionMenor = 10 ) then
           begin
             if osVerInfo.szCSDVersion[1] = 'A' then
               Result := 'Windows 98 Second Edition'
             else
               Result := 'Windows 98';
           end
           else
             if ( VersionMayor = 4 ) and ( VersionMenor = 90 ) then
               Result := 'Windows Millenium'
             else
               Result := 'Desconocida';
         end;
     end;
   end;
end;

Primero averigua de que plataforma se trata. Si es Win32 los sistemas operativos pueden ser: Windows 95, Windows 98, Windows 98 Second Edition y Windows Millenium. Por otro lado, si se trata de la plataforma NT entonces las versiones son: Windows NT, Windows 2000, Windows XP y Windows Vista.

Esta función puede ser de utilidad para saber que librerias DLL tiene instaladas, que comandos del sistema podemos ejecutar o para saber si tenemos que habilitar o deshabilitar ciertas funciones de nuestra aplicación.

Pruebas realizadas en Delphi 7.