Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-02-2008
Avatar de ManuelPerez
ManuelPerez ManuelPerez is offline
Miembro
 
Registrado: sep 2007
Ubicación: Rio III - Córdoba - Argentina
Posts: 71
Poder: 17
ManuelPerez Va por buen camino
Red face Obtener version de Windows

Hola solo necesito obtener que windows tengo instalado en la pc.

ejemplo : Label3.Caption := windows???

para poder mostrar el windows instalado.
Responder Con Cita
  #2  
Antiguo 14-02-2008
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Poder: 21
enecumene Va por buen camino
Hola tal vez este truco te sirva:

http://www.clubdelphi.com/trucos/ind...11&scrollb=285

saludos.
__________________

Mi BLOG - ¡Joder, leanse la guia de estilo!
Las Palabras son enanas, los ejemplos gigantes.
Responder Con Cita
  #3  
Antiguo 14-02-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
Hola ManuelPerez, no me acuerdo de donde he sacado este codigo, espero te sirva.

Código Delphi [-]
function TForm1.GetOSVersion:String;
var
  OSVersion: TOSVersionInfo;
  FVersion,FPlatform,serPack:String;
  FPlatformID: DWord;
begin
   OSVersion.dwOSVersionInfoSize := SizeOf(OSVersion);

   if GetVersionEx(OSVersion) then
      begin
         FVersion := Format('%d.%d (%d.%s)',[OSVersion.dwMajorVersion, OSVersion.dwMinorVersion,(OSVersion.dwBuildNumber and $FFFF), OSVersion.szCSDVersion]);
         FPlatformID:= OSVersion.dwPlatformID;
         case OSVersion.dwPlatformID of
             1:begin
                Case OSVersion.dwMinorVersion  of
                0: FPlatform := 'Windows 95';
                10: FPlatform := 'Windows 98';
                90: FPlatform := 'Windows Millennium';
                end;
               end;
             2:begin
                Case OSVersion.dwMajorVersion  of
                3:FPlatform := 'Windows NT 3.51';
                4:FPlatform := 'Windows NT 4.0';
                5:begin
                     if OSVersion.dwMinorVersion=0 then
                        FPlatform := 'Windows 2000'
                     else
                        FPlatform := 'Windows XP';
                  end;
                end;
               end;
            else
                FPlatform := '';
         end;  //of case
      end; //of if
      serPack:=OSVersion.szCSDVersion;
   result:=FPlatform+' '+serPack;
end;

//y para llamar 

Label3.Caption := GetOSVersion;


Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
  #4  
Antiguo 15-02-2008
Avatar de ManuelPerez
ManuelPerez ManuelPerez is offline
Miembro
 
Registrado: sep 2007
Ubicación: Rio III - Córdoba - Argentina
Posts: 71
Poder: 17
ManuelPerez Va por buen camino
gracias caro

Muchas Gracias Caro ... !!!!!!!!!!
Responder Con Cita
  #5  
Antiguo 14-04-2008
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Poder: 21
defcon1_es Va por buen camino
Ampliado para windows vista:

Código Delphi [-]
function TForm1.GetOSVersion:String;
var
  OSVersion: TOSVersionInfo;
  FVersion,FPlatform,serPack:String;
  FPlatformID: DWord;
begin
   OSVersion.dwOSVersionInfoSize := SizeOf(OSVersion);

   if GetVersionEx(OSVersion) then
      begin
         FVersion := Format('%d.%d (%d.%s)',[OSVersion.dwMajorVersion, OSVersion.dwMinorVersion,(OSVersion.dwBuildNumber and $FFFF), OSVersion.szCSDVersion]);
         FPlatformID:= OSVersion.dwPlatformID;
         case OSVersion.dwPlatformID of
             1:begin
                Case OSVersion.dwMinorVersion  of
                0: FPlatform := 'Windows 95';
                10: FPlatform := 'Windows 98';
                90: FPlatform := 'Windows Millennium';
                end;
               end;
             2:begin
                Case OSVersion.dwMajorVersion  of
                3:FPlatform := 'Windows NT 3.51';
                4:FPlatform := 'Windows NT 4.0';
                5:begin
                     if OSVersion.dwMinorVersion=0 then
                        FPlatform := 'Windows 2000'
                     else
                        FPlatform := 'Windows XP';
                  end;
                 6:FPlatform := 'Windows Vista';
                 end;
               end;
            else
                FPlatform := '';
         end;  //of case
      end; //of if
      serPack:=OSVersion.szCSDVersion;
   result:=FPlatform+' '+serPack;
end;

//y para llamar 

Label3.Caption := GetOSVersion;
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...

Última edición por defcon1_es fecha: 15-04-2008 a las 14:32:34.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Obtener Versión del Proyecto con CLX AESC Varios 0 23-08-2007 20:59:35
Obtener versión activa de Java Tino JAVA 3 01-08-2007 20:52:11
Obtener version de Firebird TEO127 SQL 0 24-02-2007 20:49:01
obtener version y nombre de aplicacion droguerman OOP 2 10-06-2006 18:25:57
Obtener la version de mi proyecto ogorut Varios 2 06-05-2003 14:34:37


La franja horaria es GMT +2. Ahora son las 10:18:05.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi