FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Obtener la version de mi proyecto
Buenas a todos.
Necesito saber como leer la version de mi proyecto que esta la zona de "project options" de delphi. Gracias. |
#2
|
|||
|
|||
Yo utilizo 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; |
#3
|
|||
|
|||
Muchas gracias tio.
La funcion me ha servido perfectamente. Ojala la gente fuera tan eficiente como tu. Un saludo. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Los menús desaparecerán de la próxima versión de Microsoft Office | marcoszorrilla | Noticias | 3 | 19-11-2005 20:53:42 |
Ya aparecio la ultima version de firebird... | uper | Firebird e Interbase | 2 | 20-10-2004 15:56:43 |
A partir de cual version de interbase se puede instalar las UDF ? | Raptor | Firebird e Interbase | 3 | 17-08-2004 16:04:13 |
Como obtener la version de un archivo por red? | Javi2 | Varios | 4 | 25-06-2004 18:43:03 |
Version del Proyecto | DJ VMan | Varios | 4 | 21-10-2003 15:34:55 |
|