Ver Mensaje Individual
  #2  
Antiguo 27-01-2005
Chaja Chaja is offline
No confirmado
 
Registrado: ago 2004
Ubicación: Mar del Plata
Posts: 238
Reputación: 0
Chaja Va por buen camino
No se si es lo que queres pero poder obtener de las propiedades del proyecto

la version que tenes.
este procedure lo tengo en una pantalla de About que cuando la creo hago esto.
El lbVersion es un label que tengo en le form para mostrar la version.
Estos datos estan guardados en la pantalla del editor en > Project\option\version info....

procedure TFormAcercaDe.FormCreate(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
AutoSize:=True;
lbVersion.Caption:=GetAppVersion;
end;
Responder Con Cita