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?