Дата и время изменения файла

[Demien]

Всем здрасти!
У меня возникла проблемка:
Необходимо програмно получать из файла дату и время его последнего изменения и сравнивать с датой и временем предыдущего изменения.
Сложность как раз в получении даты и времени изменения...
Помогите пожалуйста! ))

[Neeter]

Вот получение даты изменения файла:

function GetFileDate(FileName: string): string;
var
  FHandle: Integer;
begin
  FHandle := FileOpen(FileName, 0);
  try
    Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
  finally
    FileClose(FHandle);
  end;
end;

Вот дата и время создания файла:

function GetFileDateTime(FileName: string): TDateTime;
var
  intFileAge: LongInt;
begin
  intFileAge := FileAge(FileName);
  if intFileAge = -1 then
    Result := 0
  else
    Result := FileDateToDateTime(intFileAge)
end;

Выводится в TDateTime, вот пример присваивания Label'у

 Label1.Caption := DateTimeToStr(GetFileDateTime('D:\1.txt'));

[Demien]

Спасибо! Разобрался!!!
А главное - вроде работает! )))

[Nemez]

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

Вот дата и время создания файла:

function GetFileDateTime(FileName: string): TDateTime;
var
  intFileAge: LongInt;
begin
  intFileAge := FileAge(FileName);
  if intFileAge = -1 then
    Result := 0
  else
    Result := FileDateToDateTime(intFileAge)
end;

Выводится в TDateTime, вот пример присваивания Label'у

 Label1.Caption := DateTimeToStr(GetFileDateTime('D:\1.txt'));

Кто пробовал этот код, как не крути показывает дату и время изменения файла, но ни как не дату и время создания. Может кто подскажет другой способ получить ДАТУ СОЗДАНИЯ файла. Перерыл весь инет прилогают примеры кодов, но и они у меня показывают дату изменения. Прям не знаю что и делать. А надо именно ДАТУ СОЗДАНИЯ.

[raxp]

может и не вкурил , но не думаю, что это возможно в принципе, т.к. теги одни и те же


upd
-------

Serge_Bliznykov
нет. это РАЗНЫЕ "тэги"!

пример в студию, самому интересно... щас ищу


upd-2
-------
нашел тоже, сенкс и + to Serge_Bliznykov

procedure GetFileInfo(const FileName: String; out CreationTime,
  ModificationTime: TDateTime);
var
  FileAttributeData: TWin32FileAttributeData;
  SystemTime: TSystemTime;
begin
  ZeroMemory(@FileAttributeData, SizeOf(TWin32FileAttributeData));
  GetFileAttributesEx(PAnsiChar(FileName), GetFileExInfoStandard, @FileAttributeData);
  FileTimeToLocalFileTime(FileAttributeData.ftCreationTime, FileAttributeData.ftCreationTime);
  FileTimeToSystemTime(FileAttributeData.ftCreationTime, SystemTime);
  CreationTime := SystemTimeToDateTime(SystemTime);
  FileTimeToLocalFileTime(FileAttributeData.ftLastWriteTime, FileAttributeData.ftLastWriteTime);
  FileTimeToSystemTime(FileAttributeData.ftLastWriteTime, SystemTime);
  ModificationTime := SystemTimeToDateTime(SystemTime);
end;

[Serge_Bliznykov]

нет. это РАЗНЫЕ "тэги"!

во вложении рабочий код. консольная программка.
Отображает данные по файлу, имя которого ей передано в качестве командной строки.

писал давно. как раз изучал данный вопрос.
Поэтому написано сумбурно.
но код - РАБОЧИЙ!


____________________
ещё добавлю. есть такой супер пакет JEDI!
и там, в модуле JclFileUtils,
среди множества полезных функций, есть и такие, уже готовые функции:
GetFileLastWrite(...)
GetFileLastAccess(...)
GetFileCreation(...)