Insertar y obtener la fecha de build.

[Lord Delfos]

Buenas gente.

Esto es algo que ya deben haber preguntado cuarenta mil veces, pero no he encontrado nada al respecto.

Lo que me gustaría hacer es, de alguna manera AUTOMÁTICA, meter en el .EXE la fecha de buildeo. Así en la ventana de Acerca De yo puedo mostrar la versión exacta (ya sé cómo hacer eso) y la fecha de la última compilación.

¿Alguna idea? ¿URL? ¿Consejo? Lo que sea...

Miles de gracias.

Saludongos.

[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 Notevi]

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...