Hola cmgenny
La version del programa puede ser importante, sobre todo cuando distribulles tu aplicacion a mas de un usuario. Con ella, puedes saber si un usuario en cuestion tiene la ultima version de tu programa, si te comenta un bug saber si esta o no arreglado,...
Yo suelo utilizar el primero y el utimo numero, es decir, el de major version y el de build. El primero lo incremento yo a la que tengo una version nueva estable (con correccion de bugs y ampliaciones) y el ultimo se incrementa solo al hacer un Build All de la aplicacion (que solo lo hago a medida que corrigo los bugs o hago las ampliaciones)
Para acceder a los numeritos en cuestion, puedes utilizar esta funcion
Código:
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:= ' Versión '+
IntToStr (HiWord (dwFileVersionMS)) + '.' +
IntToStr (LoWord (dwFileVersionMS)) + ' Build ' +
IntToStr (HiWord (dwFileVersionLS)) + '.' +
IntToStr (LoWord (dwFileVersionLS));
end;
finally
FreeMem (Pt);
end;
end;
end;
Espero te sirva