FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Fecha de compilacion
Hola a todos.
Tengo una duda con fechas. Como puedo obtener la fecha de compilacion o de build de un ejecutable? Quiero poner esta fecha en un formulario AbouBox en el que ya tengo puesta la versión con un GetAppVersion Saludos Josep |
#2
|
|||
|
|||
Prueba este código : Usa el Unit Windows
Function TForm1.DaVersion : String;
{Se pueden pedir los siguientes datos: CompanyName FileDescription FileVersion InternalName LegalCopyright OriginalFilename ProductName ProductVersion } type PaLeerBuffer = array [0..MAX_PATH] of char; var Size, Size2 : DWord; Pt, Pt2, Pt3 : Pointer; Mensa,Idioma : string; begin Size := GetFileVersionInfoSize(PChar (Application.Exename), Size2); if Size > 0 then begin GetMem (Pt, Size); GetFileVersionInfo (PChar (ParamStr (0)), 0, Size, Pt); VerQueryValue( Pt, '\VarFileInfo\Translation',Pt2, Size2); Idioma:=IntToHex( DWord(Pt2^) ,8 ); Idioma:=Copy(Idioma,5,4)+Copy(Idioma,1,4); VerQueryValue( Pt,Pchar('\StringFileInfo\'+Idioma+'\'+'FileVersion'),Pt2, Size2); if Size2 > 0 then mensa := mensa +'Version: '+Copy(PaLeerBuffer(Pt2^),1,Size2)+#13+#13; Result := Copy(PaLeerBuffer(Pt2^),1,Size2); FreeMem (Pt); end; end; |
#3
|
||||
|
||||
Gracias por la respuesta.
Esta opcion ya la habia visto, pero la implementé ya que no veo por ningun lado es la variable con la fecha que es loq ue me interesa. Saludo Josep |
#4
|
||||
|
||||
Buscalo en esta sección, la respuesta ya esta.
|
#5
|
||||
|
||||
Hola jafera.
Probá de este modo:
Llamada de ejemplo:
Saludos. Última edición por ecfisa fecha: 23-08-2010 a las 20:51:20. |
#6
|
||||
|
||||
Hola, estoy intentando implementar la funcion que me pasasteis y me lanza este error:
[Error] ModulDades.pas(192): Declaration of 'filegetdatetime' differs from previous declaration En private declaro la funcion function FilegetdateTime : TDateTime; Luego coloco la funcion y me lanza este error. Que puedo hacer mal? Gracias Josep |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
¿Directivas compilacion? | drykea | Varios | 1 | 03-05-2007 14:51:15 |
Compilación de componentes | Velia | Varios | 1 | 06-09-2006 06:00:31 |
Errores De CompilaciÓn | nax | Varios | 1 | 20-08-2005 07:54:24 |
Error Compilaciòn | amesoft | Varios | 1 | 07-08-2005 19:09:23 |
Velocidad de compilacion | kalimero | Varios | 2 | 10-11-2004 14:06:12 |
|