Fecha de compilacion

[ecfisa]

Hola Jafera.

Estaba seguro se podría lograr, solo había que saber donde buscar y es en TWin32FindData...

Probá este código:

Código Delphi [-]
uses Windows;

function GetFileDate(Nombre: string): TDateTime;
var
  SR: TSearchRec;
  LocalFileTime: TFileTime;
  SystemTime: TSystemTime;
begin
  if FindFirst(Nombre, $FF, SR) = 0 then
  begin
    FileTimeToLocalFileTime(SR.FindData.ftCreationTime, LocalFileTime);
    FileTimeToSystemTime(LocalFileTime, SystemTime) ;
    Result:= SystemTimeToDateTime(SystemTime);
  end;
end;

Ejemplos de llamada:

Código Delphi [-]
var
  dt: TDateTime;
begin
   dt:= GetFileDate(ParamStr(0));
   ShowMessage(DateToStr(GetFileDate(ParamStr(0))));
end;

Saludos.