Дата создания файла

[Шеллер Алексей]

Здравствуйте! У меня возникла проблема с определением даты создания файла.
Пробовал следующее:

Var File_Rec: TSearchRec;
begin
  findFirst('C:\MyFile.txt', 1, File_Rec);
  Form1.Label1.Caption:= IntToStr(File_Rec.Time);
end;

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

[And1]

Что-то я не догоняю, как "IntToStr(File_Rec.Time)" может показать время создания файла.

procedure TForm1.Button1Click(Sender: TObject);
var File_Rec: TSearchRec;
DateTime:TDateTime;
begin
findFirst('C:\MyFile.txt', 1, File_Rec);
DateTime:=FileDateToDateTime(File_Rec.Time);
showMessage('Дата и время: '+DateTimeTostr(DateTime));
showMessage('Только время: '+TimeTostr(DateTime));
showMessage('Только дата: '+DateTostr(DateTime));
end;

Если же сильно хочется хранить время и дату в виде отдельных чисел, то:
1) Время в File_Rec.Time хранится в формате DosDateTime
2) DosDateTime:
Дата = 65536*(день + 32*месяц + 512*(год – 1980))
время = Часы*2048 + минуты*32 + секунды/2
побитно формат DosDateTime можно посмотреть в справке, наприм. в описании функции DosDateTimeToVariantTime

procedure TForm1.Button1Click(Sender: TObject);
var File_Rec: TSearchRec;
i:Integer;
begin
findFirst('C:\MyFile.txt', 1, File_Rec);
i:= (File_Rec.Time and $FFFF);
showMessage('время: '+inttostr((i and $F800) div 2048)+':'+inttostr((i and $7E0) div 32)+':'+inttostr((i and $1F)*2));
 
end;

[Шеллер Алексей]

Сообщение от And1

Что-то я не догоняю, как "IntToStr(File_Rec.Time)" может показать время создания файла.

Свойство Time имеет тип Integer
А вообще, спасибо за подсказку, сейчас попробую.