Функція FileAge – отримання дати/часу останньої зміни файлу, не відкриваючи його

Функція FileAge в Delphi отримання дати/часу останньої зміни файлу, не відкриваючи його.

Функція 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;