Описание |
Функция 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
|
|