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