Insertar y obtener la fecha de build.

[afunez2007]

Yo lo hago con esta funcion:

Código Delphi [-]
function GetFileDate(TheFileName: string): Double;
var
 FHandle: integer;
begin
 FHandle := FileOpen(TheFileName, 0);
 try
   Result := FileDateToDateTime(FileGetDate(FHandle));
 finally
   FileClose(FHandle);
 end;
end;

y para usarlo utilizas esto:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var fecha1:TDateTime;
begin
fecha1:= GetFileDate(ExtractFilePath(Application.ExeName)+'TuApp.exe');
end;

[Lord Delfos]

Gracias, afunez2007.

Lo que pasa con este método tuyo es que si la fecha de archivo llega a cambiar (cosa que puede pasar con mucha facilidad) entonces mi ejecutable va a mostrar una fecha incorrecta.

Pos eso me interesa algún método que "grabe a fuego" en mi ejecutable la fecha y la hora de compilación.

Pero gracias de todos modos.

[Neftali [Germán.Estévez]]

Hay tres fechas que se guardan en el archivo, la de creación, la de última modificación y la del último acceso.
Podrías utilizar la primera, de forma que si el archivo se modifica, cambiará la segunda, pero no la primera.

Aquí en mi página tienes un truco de cómo obtener esas tres fechas;
Fechas de un fichero (creación, modificación y últ. acceso)

[Casimiro Noteví]

Yo uso esto, por si acaso te sirve:

lbVersion.Caption := 'v'+GetmVersion+
'-'+DateToStr(FileDateToDateTime(FileAge(paramStr(0))));



// -------------------------------------
function GetmVersion: string;
var
  InfoSize, H, RsltLen: Cardinal;
  VersionBlock: Pointer;
  Rslt: PVSFixedFileInfo;
begin
  InfoSize := GetFileVersionInfoSize(PChar(Application.ExeName), H);
  VersionBlock := AllocMem(InfoSize);
  try
    GetFileVersionInfo(PChar(Application.ExeName), H, InfoSize, VersionBlock);
    VerQueryValue(VersionBlock, '\', Pointer(Rslt), RsltLen);
    Result := Format('%d.%d.%d.%d', [
    Rslt.dwProductVersionMS div 65536,
    Rslt.dwProductVersionMS mod 65536,
    Rslt.dwProductVersionLS div 65536,
    Rslt.dwProductVersionLS mod 65536]);
  finally
    FreeMem(VersionBlock);
  end;
end;

[Lord Delfos]

Gracias a todos muchach@s. Pero el problema sigue siendo el mismo. Cualquier fecha que tenga el archivo .exe, sea de creación, acceso o modificación, depende exclusivamente del sistema operativo. Hay ocasiones en las que estas fechas se cambian al pasar de un medio a otro (copia en CD, FTP, etc.) y entonces se me jode todo el sistema...

Teóricamente los ejecutables tienen un campo fecha (que se obtiene con la API GetFileVersionInfo) pero Delphi no lo setea...

Habrá que seguir pensando, parece...

[Casimiro Noteví]

Empezado por Lord Delfos

Gracias a todos muchach@s. Pero el problema sigue siendo el mismo. Cualquier fecha que tenga el archivo .exe, sea de creación, acceso o modificación, depende exclusivamente del sistema operativo. Hay ocasiones en las que estas fechas se cambian al pasar de un medio a otro (copia en CD, FTP, etc.) y entonces se me jode todo el sistema...
Teóricamente los ejecutables tienen un campo fecha (que se obtiene con la API GetFileVersionInfo) pero Delphi no lo setea...
Habrá que seguir pensando, parece...

Creo que no has probado bien, la opción que he puesto, que yo sepa, mantiene la fecha del ejecutable.
Aunque puede ser que no lo haga y no me haya fijado.

[Lord Delfos]

Gracias Casimiro, pero sí, la fecha puede modificarse sin querer y FileAge depende de la fecha de creación, así que cualquier modificación a eso... pues fuiste, se te jode el programa.