Получение датя/время последнего изменения файла, не открывая его
SysUtils unit
function FileAge ( const FileName : string ) : Integer;
Описание
Функция FileAge возвращает дату и время последнего изменения файла FileName.
Нет никакой потребности в открытие или закрытие файла - эта функция обрабатывает эти операции без них.
Возвращенное значение находится в 32 битном разделенном формате. Используйте функцию FiledateToDateTime, чтобы конвертировать в управляемое значение TDateTime.
Если дата файла не найдена (например, FileName было ошибочное), то возвращается -1.
Похожие команды
DateTimeToFileDate Преобразует значение TDateTime в формат date/time формат файла
FileDateToDateTime Конвертирует формат даты/времени файла в значение TDateTime
FileSetDate Установка даты и времени последнего изменения файла
Пример кода : Получение даты последнего изменения текущего файла формы Модуля
var
fileName : string;
fileDate : Integer;
begin // Попытка открыть файл Unit1.DCU
для текущего проекта
fileName := 'Unit1.DCU';
fileDate := FileAge(fileName); // Мы получали возраста файла?
if fileDate > -1 then
ShowMessage(fileName+' дата последнего изменения = '+
DateToStr(FileDateToDateTime(fileDate)));
end;