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

[Ship_1]

Думал, банальный вопрос... Да фиг там. Искал-искал по интернету, прямого ответа так и не нашёл, кривые совместить не удалось...
Может кто-нибудь сказать как получить в формате TDateTime дату создания файла?
Ну или что здесь поменять, чтоб работало?..

function GetFileCreateDateTime(FileName: string): TDateTime;
var
  T1, T2, T3 : TFileTime;
  h:THandle;
  F: TFileTime;
  S: TSystemTime;
  DateTime: TDateTime ;
begin
  h:=FileOpen(FileName, fmOpenReadWrite);
  GetFileTime(h, @T1, @T2, @T3);
  FileTimeToLocalFileTime(T1, F);
  FileTimeToSystemTime(F, S);
  DateTime:=SystemTimeToDateTime(S);
  Result := DateTime;
  FileClose(h);
end;

[Аватар]

procedure TForm1.Button3Click(Sender: TObject);
var SearchRec: TSearchRec;
    LocalTime: TFileTime;
    DOSFileTime: DWORD;
begin
  if FindFirst('e:\прогрессбар.txt',faAnyFile,SearchRec)=0 then begin
    FileTimeToLocalFileTime(SearchRec.FindData.ftCreationTime,LocalTime);
    FileTimeToDosDateTime(LocalTime,LongRec(DOSFileTime).Hi,LongRec(DOSFileTime).Lo);
    Edit2.Text:=DateTimeToStr(FileDateToDateTime(DOSFileTime));
    FindClose(SearchRec);
  END;
end;

[Ship_1]

Возможно, я находил такой вариант. А, может, и несколько раз
SearchRec.FindData.ftCreationTime - это он выдирает время создания из результата поиска. Так? Но у меня не поиск. У меня просто файл. Точнее, строка с его путём и названием.

[evg_m]

00.JPG
контрольный файл

01.JPG
и результаты работы (Delphi7 + WinXP )

???

[Аватар]

У меня тоже просто файл. И это время его создания и хранится в файловой системе. Время последнего изменения можно проще

  i:=FileAge('e:\прогрессбар.txt');
  if i<>-1 then Edit1.Text:=DateTimeToStr(FileDateToDateTime(i));

[Ship_1]

evg_mХм... А у меня, почему-то, всё время для разных файлов выходит одна и та же дата 21.07.1660 21:17:56:122. D7, Win7, хотя не думаю, что дело в этом...
Аватар Действительно... Тоже просто файл... Очень необычно как-то видеть FindFirst вне цикла поиска файлов, поэтому не обращал внимания на точное указание файла. Спасибо! Так получилось
FileAge тоже находил. В части форумов это ошибочно фигурирует как способ определения времени создания файла.

[Filka]

http://stackoverflow.com/a/9209814