Клуб программистов

    Delphi функция FileAge позволяет получить дату/время последней модификации файла, не открывая файл.

    Нет необходимости открывать или закрывать файл - эта функция сама выполнит эти действия.

    Нет необходимости открывать или закрывать файл - эта функция сама выполнит эти действия.

    Возвращается величина в 32 битном формате. Используйте функцию FiledateToDateTime, чтобы преобразовываться файловую дату в обычный формат даты.

    Если файловая дата была не обнаружена (например файла не существует), тогда будет получен результат = -1 .

var
   fileName : string;
   fileDate : Integer;

begin
   // Try to open the Unit1.DCU file for the current project
   fileName := 'Unit1.DCU';
   fileDate := FileAge(fileName);

   // Did we get the file age OK?
   if fileDate > -1 then
      ShowMessage(fileName+' last modified date = '+
               DateToStr(FileDateToDateTime(fileDate)));
end;

Unit1.DCU last modified date = 10/11/2002