Folder creation datetime

[WojTec]

Delphi-Quellcode:

function GetFolderDate(const AFolder: string): TDateTime;
var
  FolderData: TWin32FileAttributeData;
  FileTime: _FILETIME;
//  FileTime: _SYSTEMTIME;
  DW: DWORD;
begin
  Result := 0;
  FillChar(FolderData, SizeOf(FolderData), 0);

  if GetFileAttributesEx(PChar(AFolder), GetFileExInfoStandard, @FolderData) then
  begin
    FileTimeToLocalFileTime(FolderData.ftCreationTime, FileTime);
    FileTimeToDosDateTime(FileTime, LongRec(DW).Hi, LongRec(DW).Lo);
    Result := FileDateToDateTime(DW);

//    FileTimeToSystemTime(FolderData.ftCreationTime, FileTime);
//    Result:= SystemTimeToDateTime(FileTime);
  end;
end;

So, both actual and commented code returns invalid creation. What is wrong?