Как узнать дату время создания файла в Delphi

Часто надо узнать, когда был создан файл. Структура TSearchRec  содержит поле Time, но это дата время последнего изменения файла. Для получения даты времени надо воспользоваться следующим кодом

var

srec: TSearchRec;

SystemTime: TSystemTime;

Begin

repeat

FileTimeToSystemTime(srec.FindData.ftCreationTime, SystemTime);

if SystemTimeToDateTime(SystemTime) <= Now() then begin

….

end;

until FindNext(srec) <> 0;

FindClose(srec);

End;

srec.FindData.ftCreationTime – содержит нужное нам информацию. Для получения из него TDateTime необходимо воспользоваться описанными выше преобразованиями.

Share

One Response to “Как узнать дату время создания файла в Delphi”

  1. Sagi пишет:

    AKAIK you’ve got the aenswr in one!

Leave a Reply