Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Control de Versiones (https://www.clubdelphi.com/foros/showthread.php?t=17946)

JorgeBec 26-01-2005 19:58:58

Control de Versiones
 
Hola Comunidad! Tal vez sea una pregunta muy trillada, pero como le hago para desplegar en una barra de status la version que esta configurada en el proyecto, y si saben de una manual para el control de versiones en Delphi les agradecere si me pasan la liga. Saludos.

Chaja 27-01-2005 04:49:45

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;


La franja horaria es GMT +2. Ahora son las 07:58:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi