FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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.
__________________
Visita mi Weblog de Ingeniería de Software... |
#2
|
|||
|
|||
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; |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|