Insertar y obtener la fecha de build.

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

[Casimiro Noteví]

No entiendo entonces, ¿qué quiéres decir?, que si tengo mi ejecutable y lo copio a otro ordenador, por ejemplo, ya cambia la fecha?

[Lord Delfos]

Empezado por Casimiro Notevi

No entiendo entonces, ¿qué quiéres decir?, que si tengo mi ejecutable y lo copio a otro ordenador, por ejemplo, ya cambia la fecha?

A ver, a ver. La fecha de creación/modificación/último acceso está almacenada en el sistema de archivos, sea NTFS, FAT32 o lo que sea, NO en el ejecutable.

Así que, potencialmente hablando, cualquier proceso que "cree" el archivo en un dispositivo de almacenamiento cualquiera, puede modificar la fecha de creación. Es decir, si vos recibís el archivo por FTP, Windows va a crear una nueva entrada de archivo y después copiar el contenido de lo que está recibiendo. Generalmente los datos de fechas son copiados junto con el archivo porque el SO es lo suficientemente inteligente, pero otras veces (y esto está librado a la suerte) no copia nada.

De ahí el problema de la fecha.

[Casimiro Noteví]

No sé en qué estaba pensando.
¿Y no te vale el "build" para tu propósito?, v1.3.115, p.e.?