Подскажите функцию извлечения даты создания файла Опции

[Артем]

Подскажите функцию извлечения даты создания файла

[volvo]

Артем
Во-первых, формат структуры TSearchRec (Delphi Help):

type 
TSearchRec = record
  Time: Integer;
  Size: Integer;
  Attr: Integer;
  Name: TFileName;
  ExcludeAttr: Integer;
  FindHandle: THandle;
  FindData: TWin32FindData;

А чтобы извлечь данные о создании файла -

Var f: TSearchRec;
...
function GetCreationTime : TDateTime;
var
  LTime : TFileTime;
  Systemtime : TSystemtime;
begin
  FileTimeToLocalFileTime( f.FindData.ftCreationTime, LTime);
  FileTimeToSystemTime( LTime, SystemTime );
  result := SystemTimeToDateTime( SystemTime);
end;

В следующий раз, если Вам нужен какой-то определенный способ извлечения информации, указывайте это сразу. Телепатов здесь нет !!!