Получить дату и время создания файла - Free Pascal

Формулировка задачи:

Как получить дату и время создания файла.

Решение задачи: «Получить дату и время создания файла»

Листинг программы

program Project1;
uses
  sysutils, windows;
 
var
  t1:TFILETIME;
  t2:TSYSTEMTIME;
  sr:TSearchRec;
begin
  if FindFirst('project1.lpr',faAnyFile,sr)=0 then begin
    FileTimeToLocalFileTime(sr.FindData.ftCreationTime,t1);
    FileTimeToSystemTime(t1,t2);
    WriteLn(DateTimeToStr(SystemTimeToDateTime(t2)));
  end;
  readln;
end.

Объяснение кода листинга программы

Объявление переменных и используемых модулей
- t1:TFILETIME;
- t2:TSYSTEMTIME;
- sr:TSearchRec;
- sysutils;
- windows;
- FindFirst;
- faAnyFile;
- sr.FindData.ftCreationTime;
- FileTimeToLocalFileTime;
- SystemTimeToDateTime;
- DateTimeToStr;
- ReadLn.
Проверка на успешное открытие файла
- if FindFirst('project1.lpr',faAnyFile,sr)=0 then.
Преобразование времени создания файла
- FileTimeToLocalFileTime(sr.FindData.ftCreationTime,t1);
- FileTimeToSystemTime(t1,t2);
Вывод даты и времени создания файла
- WriteLn(DateTimeToStr(SystemTimeToDateTime(t2)));
Ожидание ввода пользователя
- readln; end.