Capturar la Version del producto

[andresenlared]

Saludos.

Necesito de su valiosa ayuda en este momento, necesito capturar la informacion de la version de la aplicacion, que seria la misma que se coloca sobre Project/opcion/version info.

Si alguno sabe de un procedimiento o lineas de codigo estare muy agradecido.

Estoy trabajando en delphi5

Gracias.

[andresenlared]

Gracias amigos, pero ya di con la respuesta...

[sanfer1ec]

Andres
Pero si ya encontraste la respuesta sería bueno que de una vez la cites, para las personas interesadas o que esten buscando lo mismo que tu ya descubriste.
Espero tu respuesta, porque si me enteresaría saber, no se me habia pasado por la mente.

[andresenlared]

Código Delphi [-]
function GetAppVersion2 : 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)) + '  Rel.' +
         IntToStr (HiWord (dwFileVersionLS)) + '.' +
         IntToStr (LoWord (dwFileVersionLS));
       end;
    finally
      FreeMem (Pt);
     end;
     end;

Saludos