Cette fonction retourne la date et l'heure d'un fichier.
Function FileAge(const FileName: String): Integer;
procedure TForm1.Button1Click(Sender: TObject);
var
nomfichier : string;
datefichier : Integer;
begin
// Pour l'exemple on ouvre le fichier "fichier.txt"
nomfichier := 'c:\dossier\fichier.txt';
datefichier := FileAge(nomfichier);
// Avons-nous obtenu l'âge du fichier ?
if datefichier > -1 then
ShowMessage(nomfichier+' date de la dernière modification = '+
DateToStr(FileDateToDateTime(datefichier)));
// resultat :
// c:\dossier\fichier.txt date de la dernière modification = 06/08/2022
end;