Delphi-Help

Описание

function FileAge ( const FileName : string ) : Integer;

Функция FileAge возвращает дату и время последнего изменения файла FileName.
Нет никакой потребности в открытие или закрытие файла - эта функция обрабатывает эти операции без них.
Возвращенное значение находится в 32 битном разделенном формате. Используйте функцию FiledateToDateTime, чтобы конвертировать в управляемое значение TDateTime.
Если дата файла не найдена (например, FileName было ошибочное), то возвращается -1.

Пример кода

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

Примечание