如何获取目录的创建时间 - Delphi /

 

var

    SR : TSearchRec;

    h : integer;

    SysTime         : SYSTEMTIME;

    Local           : FILETIME;

    dt : TDateTime;

begin

    h :=FindFirst('D:/aa',faDirectory,SR);

    if h = 0 then

    begin

        FileTimeToLocalFileTime(SR.FindData.ftCreationTime, Local);

        FileTimeToSystemTime(Local, SysTime);

        dt := SystemTimeToDateTime(SysTime);

        ShowMessage(DateTimeToStr(dt));

        FindClose(SR);

    end;

end;