Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-05-2020
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 14
aguml Va por buen camino
Saber versión de Windows con condicionales de compilacion

Necesito saber bajo que versión de Windows x64 estoy para definir unas constantes con diferentes valores para diferentes versiones.
He visto esto pero es para x32 y lo necesito para x64: https://docs.microsoft.com/es-es/win...ectedfrom=MSDN

Última edición por aguml fecha: 27-05-2020 a las 20:09:45. Razón: Correccion
Responder Con Cita
  #2  
Antiguo 27-05-2020
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 947
Poder: 25
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Estimado Aguml, haber si esto le sirve de guía...

Código Delphi [-]
procedure TForm5.FormCreate(Sender: TObject);
Const
   ArrArquitecture:array[TOSVersion.TArchitecture] of  string=('arIntelX86', 'arIntelX64', 'arARM32', 'arARM64');
   ArrPlatform:array[TOSVersion.TPlatform] of string=('pfWindows', 'pfMacOS', 'pfiOS', 'pfAndroid', 'pfWinRT', 'pfLinux');

begin
     vle.Strings.Add(format('Architecture=%s',[ArrArquitecture[TOSVersion.Architecture]]));
     vle.Strings.Add(format('Platform=%s',[ArrPlatform[TOSVersion.Platform]]));

     vle.Strings.Add(format('Build=%d',[TOSVersion.Build]));
     vle.Strings.Add(format('Major=%d',[TOSVersion.Major]));
     vle.Strings.Add(format('Minor=%d',[TOSVersion.Minor]));
     vle.Strings.Add(format('ServicePackMajor=%d',[TOSVersion.ServicePackMajor]));
     vle.Strings.Add(format('ServicePackMinor=%d',[TOSVersion.ServicePackMinor]));

     vle.Strings.Add(format('Descripción=%s',[TOSVersion.ToString]));
end;

Saludos cordiales
Responder Con Cita
  #3  
Antiguo 27-05-2020
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 14
aguml Va por buen camino
No, eso no me sirve porque tiene que ser en tiempo de compilacion tal como:
Código PHP:
#ifndef _WIN64
    #error "Esta clase es para x64"
#else
    #if defined _WIN10
        #define POS_NTFLAGS 0xBC
    #elif defined _WIN7
        #define POS_NTFLAGS 0xBF
    #elif defined _WIN8
        #define POS_NTFLAGS 0xC0
    #endif
#endif 
Responder Con Cita
  #4  
Antiguo 29-05-2020
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 947
Poder: 25
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
En la página de Embarcadero está la información que buscas...
Directivas de Compilación

Saludos cordiales
Responder Con Cita
Respuesta



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
Windows 8.1, Delphi XE2: ¿Cómo puedo saber la versión de mi ejecutable? TiammatMX API de Windows 3 11-06-2015 02:59:56
Saber la versión de un ejecutable MAXIUM API de Windows 2 23-08-2014 04:04:59
Guardar datos de versión de compilación jotaeme Varios 4 20-12-2012 17:04:00
Como saber version de windows (32 o 64 bits) ?? jandok238 Varios 2 19-01-2009 17:17:22
funcion para saber la version de windows mismail API de Windows 1 11-02-2007 12:58:41


La franja horaria es GMT +2. Ahora son las 07:24:39.


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