Como obtener de la información de versión del ejecutable

[Alcolea]

Hola a todos, he tratado de obtener de la información de versión de mi ejecutable el comentario y no encuentro la manera. Ya he probado modificando los ejemplos de la Ayuda de Delphi7 con los que puedo obtener el número de versión y otras cosas pero del comentario nada de nada.:confused: :mad:

Como siempre les agradezco por adelantado.

[egostar]

Aqui una función para recuperar la versión de tu aplicación, no recuerdo donde la consegui, pero creo en trucomania.


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;

//Asi la llamas:

Label1.Caption := Label1.Caption + GetAppVersion;


Saludos.