Функция Delphi FileGetDate позволяет определить дату и время последней модификации файла. В качестве аргумента она принимает дескриптор файла.
Дескриптор получить можно, открыв файл с использование функции FileOpen.
Функция FileGetDate возвращает в виде целого числа дату и время последней модификации файла. Чтобы вместо этого числа получить обычное время и дату надо воспользоваться функцией FileDateToDateTime.
Для более наглядного понимания реализуем такой пример. На форме расположим компоненты: Edit, OpenDialog и кнопку.
Нажав на кнопку откроется диалоговое окно выбора файла, выбрав файл в окне редактирования Edit будет отображена дата и время. Обработчик кнопки будет таким:
procedure TForm1.Button1Click(Sender: TObject); var Handle, DataChislo : Integer; DataVar : TDateTime; begin if OpenDialog1.Execute then begin Handle := FileOpen(OpenDialog1.FileName,0); DataChislo := FileGetDate(Handle); DataVar := FileDateToDateTime(DataChislo); Edit1.Text := DateTimeToStr(dataVar); end; end;
Итог: мы познакомились с функцией FileGetDate и применили ее в деле.