Дата создания каталога

[eoln]

Столкнулся с проблемой определения даты создания каталога. Штука в том, что не могу получить данные по папкам "C:\Windows" и "C:\Program files" (и некоторым вложенным в них), которые относятся к Windows98 (вместо 2007 года получаю 1980-й). С остальными папками проблем нет...
Работаю в WinXP

procedure TForm1.Button1Click(Sender: TObject);
var ff: _win32_find_dataa;
    hFind: hwnd;
    ModifiedTime: TFileTime;
    SystemTime: TSystemTime;
begin
    hFind := FindFirstfile(pchar(edit1.text), ff);
    if (INVALID_HANDLE_VALUE <> hFind) then
    repeat
    if (ff.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY then begin
        memo1.text:=ff.cFileName;
        FileTimeToLocalFileTime(ff.ftCreationTime, ModifiedTime);
        FileTimeToSystemTime(ModifiedTime, SystemTime);
        memo1.Lines.Add(datetimetostr(SystemTimeToDateTime(SystemTime)));
    end;
    until not FindNextfile(hFind, ff);
end;

[Stilet]

GetFileTime попробуй.

На DelphiWorld такой пример:

function GetDirTime(const Dir: string): TDateTime;
var
  H: Integer;
  F: TFileTime;
  S: TSystemTime;
begin
  H := CreateFile(PChar(Dir), $0080, 0, nil, OPEN_EXISTING,
    FILE_FLAG_BACKUP_SEMANTICS, 0);
  if H <> -1 then
  begin
    GetFileTime(H, @F, nil, nil);
    FileTimeToLocalFileTime(F, F);
    FileTimeToSystemTime(F, S);
    Result := SystemTimeToDateTime(S);
    CloseHandle(H);
  end
  else
    Result := -1;
end;