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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-09-2011
Avatar de Manuel
Manuel Manuel is offline
Miembro
NULL
 
Registrado: may 2003
Ubicación: San Pedro de la Paz/Chile
Posts: 316
Poder: 16
Manuel Va por buen camino
Lectura errónea de la versión de mi aplicación

Amigos de Club, gracias por leer este hilo, tengo esta procedure para leer la versión de me ejecutable:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

   function  GetAppVersion:string;
   var
    Size, Size2: DWord;
    Pt, Pt2: Pointer;
   begin
     Size := GetFileVersionInfoSize(PChar (ParamStr (0)), Size2);
     if Size > 0 then
     begin
       GetMem (Pt, Size);
       try
          GetFileVersionInfo (PChar (ParamStr (0)), 0, Size, Pt);
          VerQueryValue (Pt, '\', Pt2, Size2);
          with TVSFixedFileInfo (Pt2^) do
          begin
            Result:= ' Ver '+
                     IntToStr (HiWord (dwFileVersionMS)) + '.' +
                     IntToStr (LoWord (dwFileVersionMS)) + '.' +
                     IntToStr (HiWord (dwFileVersionLS)) + '.' +
                     IntToStr (LoWord (dwFileVersionLS));
         end;
       finally
         FreeMem (Pt);
       end;
     end;
   end;

 begin
   Form1.Caption:=Form1.Caption+GetAppVersion;
 end;

A pesar que en el IDE le cambio la versión, a cualquier número, me aparece siempre "Ver 3.0.0.0', a pesar que tengo activo la opción de incluir el numero de versión, en el proyecto, que podrá ser?
__________________
Manuel Muñoz L. Trabajando con delphi 7.0 , migrando sistema a Delphi XE8, matando BDE y pasando FIREDAC.
Responder Con Cita
  #2  
Antiguo 22-09-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 29.028
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Yo tengo esto, echa un vistazo a las diferencias:

Código Delphi [-]
function GetmVersion(cExe:string='') : string;
var
  InfoSize, H, RsltLen: Cardinal;
  VersionBlock: Pointer;
  Rslt: PVSFixedFileInfo;
begin
  if (cExe='') or (not FileExists(cExe)) then
    cExe := Application.ExeName;
  //
  //InfoSize := GetFileVersionInfoSize(PChar(Application.ExeName), H);
  InfoSize := GetFileVersionInfoSize(PChar(cExe), H);
  VersionBlock := AllocMem(InfoSize);
  try
    //GetFileVersionInfo(PChar(Application.ExeName), H, InfoSize, VersionBlock);
    GetFileVersionInfo(PChar(cExe), H, InfoSize, VersionBlock);
    VerQueryValue(VersionBlock, '\', Pointer(Rslt), RsltLen);
    Result := Format('%d.%d.%d.%d', [
    Rslt.dwProductVersionMS div 65536,
    Rslt.dwProductVersionMS mod 65536,
    Rslt.dwProductVersionLS div 65536,
    Rslt.dwProductVersionLS mod 65536]);
  finally
    FreeMem(VersionBlock);
  end;
end;
Responder Con Cita
  #3  
Antiguo 22-09-2011
Avatar de DarKraZY
DarKraZY DarKraZY is offline
Miembro
NULL
 
Registrado: ago 2003
Posts: 460
Poder: 16
DarKraZY Va por buen camino
Cita:
Empezado por Manuel Ver Mensaje
A pesar que en el IDE le cambio la versión, a cualquier número, me aparece siempre "Ver 3.0.0.0', a pesar que tengo activo la opción de incluir el numero de versión, en el proyecto, que podrá ser?
En Delphi 2007 funciona perfectamente el código que has puesto
Responder Con Cita
  #4  
Antiguo 22-09-2011
Avatar de Manuel
Manuel Manuel is offline
Miembro
NULL
 
Registrado: may 2003
Ubicación: San Pedro de la Paz/Chile
Posts: 316
Poder: 16
Manuel Va por buen camino
Gracias por sus respuestas.

Amigos como siempre tan gentiles, y agradezco el tiempo que se toman en responder los hilos del foro, el problema no era la rutina para capturar la versión, les cuento si a alguien le puede servir:

El nombres del proyecto originalmente era notas, pero después le cambie el nombre del archivo .drp a notasV3, pero internamente el unit seguía llamándose notas, por lo tanto la información del proyecto (Ej.: Número versión) seguía en el archivo notas.res, al cambiarlo de "unit notas" a "unit notasv3", se actualizo el número de versión real, escribo esto si alguien le pudiera servir en un futuro.

Nuevamente agradezco su ayuda.
__________________
Manuel Muñoz L. Trabajando con delphi 7.0 , migrando sistema a Delphi XE8, matando BDE y pasando FIREDAC.
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 version y nombre de aplicacion droguerman OOP 2 10-06-2006 17:25:57
como obtengo la version de mi aplicacion? squenda Varios 4 13-01-2005 23:33:40
Versión de la aplicación Delphi HombreSigma API de Windows 1 19-09-2003 08:02:15
ver version de mi aplicacion Javier PLatas Varios 2 21-08-2003 19:20:06
Incluir la version de la aplicacion Zopi Varios 1 04-06-2003 02:00:03


La franja horaria es GMT +2. Ahora son las 02:28:01.


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