Version windows'??

[vtdeleon]

Saludos

Quiero presentar edit o label... la version de windows en la cual se esta corriendo la aplicacion.

Cual es la variable que usa delphi?

Hasta luego y Grax.

[ajmacias]

 unit WVersion;
  
 interface 
  
 uses 
   Windows, SysUtils;
  
 function GetWindowsVersion: String;
  
 implementation 
  
 function GetWindowsVersion: String;
 const 
   cOsUnknown : Integer = -1;
   cOsWin95 : Integer = 0;
   cOsWin98 : Integer = 1;
   cOsWin98SE : Integer = 2;
   cOsWinME : Integer = 3;
   cOsWinNT : Integer = 4;
   cOsWin2000 : Integer = 5;
   cOsWinXP : Integer = 6;
 var 
   osVerInfo : TOSVersionInfo;
   majorVer,
   minorVer,
   VersionCode: Integer;
 begin 
   osVerInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo );
   if ( GetVersionEx( osVerInfo ) ) then 
   begin 
 	majorVer := osVerInfo.dwMajorVersion;
 	minorVer := osVerInfo.dwMinorVersion;
 	case ( osVerInfo.dwPlatformId ) of 
  
 	  VER_PLATFORM_WIN32_NT : { Windows NT/2000/XP }
 	  begin 
 		if ( majorVer <= 4 ) then VersionCode := cOsWinNT
 		else 
 		if ( ( majorVer = 5 ) and ( minorVer= 0 ) ) then VersionCode := cOsWin2000
 		else 
 		if ( ( majorVer = 5) and ( minorVer = 1 ) ) then VersionCode := cOsWinXP
 		else 
 		VersionCode := cOsUnknown;
 	  end; 
  
 	  VER_PLATFORM_WIN32_WINDOWS : { Windows 9x/ME }
 	  begin 
 		if ( ( majorVer = 4 ) and ( minorVer = 0 ) ) then VersionCode := cOsWin95
 		else 
 		  if ( ( majorVer = 4 ) and ( minorVer = 10 ) ) then 
 		  begin 
 			if ( osVerInfo.szCSDVersion[ 1 ] = 'A' ) then VersionCode := cOsWin98SE
 			else VersionCode := cOsWin98;
 		  end 
 		  else 
 			if ( ( majorVer = 4) and ( minorVer = 90 ) ) then VersionCode := cOsWinME
 			else VersionCode := cOsUnknown;
 	  end; 
  
 	  else 
 		VersionCode := cOsUnknown;
 	end; { Final del Case}
   end 
   else 
 	VersionCode := cOsUnknown; {Final del if}
  
   if ( VersionCode = cOsUnknown ) then 
    Result := '(sistema no reconocido)'
   else if ( VersionCode = cOsWin95 ) then 
    Result := 'Microsoft Windows 95'
   else if ( VersionCode = cOsWin98 ) then 
    Result := 'Microsoft Windows 98'
   else if ( VersionCode = cOsWin98SE ) then 
    Result := 'Microsoft Windows 98 Second Edition'
   else if ( VersionCode = cOsWinME ) then 
    Result := 'Microsoft Windows Millennium Edition'
   else if ( VersionCode = cOsWinNT ) then 
    Result := 'Microsoft Windows NT'
   else if ( VersionCode = cOsWin2000 ) then 
    Result := 'Microsoft Windows 2000'
   else if ( VersionCode = cOsWinXP ) then 
    Result := 'Microsoft Windows XP'
   else 
    Result := 'Microsoft Windows';
  
   Result:= Result + ' (Build '+IntToStr(osVerInfo.dwBuildNumber)+') ' + osVerInfo.szCSDVersion;
 end; 
  
 end.

[vtdeleon]

Wow

Gracias. Funciono a la perfeccion

No crei que fuera tan complicado. Aunque pienso que deberia haber otra forma .

Saludos

[vtdeleon]

Saludos.
Estuve probando la funcion que me ha ofrecido ajmacias. Lo probe con el windows experimental Longhorn para ver si funcionaba.

El resultado obtenido es que no arroja la version de windows esta corriendo.

Hay otra forma?

[[Lepe]]

vtdeleon no estaría de más que mirases en las propiedades de Mi Pc bajo loghorn y dijeras el número de compilación que tiene, para actualizar la rutina.

Un saludo

[vtdeleon]

Empezado por Lepe

vtdeleon no estaría de más que mirases en las propiedades de Mi Pc bajo loghorn y dijeras el número de compilación que tiene, para actualizar la rutina.

En la propiedad dice "Microsoft codename Lonhorn, Build 4074". Hasta luego

[[Lepe]]

vaya, pues no nos dice mucho verdad ?

Otra solución sería poner un Showmessage mostrando los valores de:
MajorVer
MinorVer
osVerInfo.dwPlatformId

Un saludo

[Delfino]

Yo utilizo el componente ComputerInfoEx open source de la JVCL, da todos los detalles del SO..

[vtdeleon]

Ok.
Gracias por su Tiempo

Hasta luego.