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
 


Оплата за обучение в Kata Academy только после твоего трудоустройства в IT, начни карьеру Middle Java-разработчика



Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки? Slurm подготовили для вас особенный продукт!





форум программистов


© Форум Delphi  |  Форум Pascal   |  Блог программистов   |  Исходники Delphi   |  Автор сайта  |  Ссылки   |  Английская версия