Fecha de compilacion

[jafera]

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

[luisdevis]

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;

[jafera]

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

[MAXIUM]

Buscalo en esta sección, la respuesta ya esta.

[ecfisa]

Hola jafera.

Probá de este modo:

Código Delphi [-]
function FileGetDateTime(Nombre: string): TDateTime;
var
  Hnd: Integer;
begin
  Hnd := FileOpen(Nombre, 0);
  try
    Result:= FileDateToDateTime(FileGetDate(Hnd));
  finally
    FileClose(Hnd);
  end;
end;

Llamada de ejemplo:

Código Delphi [-]
var
  FechaDT: TDateTime;
  FechaST: string; 
begin
  FechaDT:= FileGetDateTime('C:\Windows\System32\ChkDsk.exe');
  FechaST:= DateToStr(Fecha); // fecha 
end;

Saludos.

[jafera]

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