Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


Основы Delphi
FileAge
Функция
Получение датя/время последнего изменения файла, не открывая его SysUtils unit
  function FileAge ( const FileName : string ) : Integer;
Описание
Функция FileAge возвращает дату и время последнего изменения файла FileName.

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

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

Если дата файла не найдена (например, FileName было ошибочное), то возвращается -1.
Похожие команды
DateTimeToFileDate  Преобразует значение TDateTime в формат date/time формат файла

FileDateToDateTime  Конвертирует формат даты/времени файла в значение TDateTime

FileSetDate  Установка даты и времени последнего изменения файла

FileGetAttr  Выдаёт атрибуты файла

FileSetAttr  Устанавливает атрибуты файла

 
Пример кода : Получение даты последнего изменения текущего файла формы Модуля
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
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия