Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как получить дату создания файла?

Автор: Desperate 9.8.2007, 15:04

Подскажите как получить дату создания файла? Дату изменения получается а вот создания никак

Автор: _hunter 9.8.2007, 15:22

GetFileAttributesEx

Автор: Desperate 9.8.2007, 23:51

Что-то не пойму как функция работает

Автор: Демо 9.8.2007, 23:59

Цитата(Desperate @ 9.8.2007, 15:04

)

Подскажите как получить дату создания файла? Дату изменения получается а вот создания никак

См. GetFileTime.

Код


var
  FCreated,FChanged,FAccessed: TFileTime;
begin
//  ...
    if not GetFileTime(FS,@FCreated,@FChanged,@FAccessed) then
//  ...

Автор: Alexeis 10.8.2007, 00:23

Код


procedure TForm1.FormCreate(Sender: TObject);
var
 data : WIN32_FILE_ATTRIBUTE_DATA;
 Sys  : SystemTime;
 loc  :  FILETIME;
begin
  if GetFileAttributesEx('C:\AUTOEXEC.BAT', GetFileExInfoStandard, @data)
  then
    Begin
      FileTimeToLocalFileTime(data.ftCreationTime, loc);
      FileTimeToSystemTime(loc, Sys);
      ShowMessage(DateTimeToStr(SystemTimeToDateTime(Sys)));
    End;
end;

Автор: Desperate 10.8.2007, 00:37

Спасибо всем! Что помогали!

Особенно спасибо Alexeis! Все то что нужно!