TWin32FindData.TFileTime nach TDateTime?

[Christian Seehase]

Moin Sharky,

bei mir sieht der Testcode so aus:

Code:

[b]procedure[/b] TForm1.Button1Click(Sender: TObject);

[b]var[/b]
  sRootDir : [b]string[/b];
  srWork   : TSearchRec;
  stWork   : TSystemTime;

[b]begin[/b]
  Memo1.Lines.Clear;
  sRootDir := GetPSDKIncludeDir;
  [b]if[/b] FindFirst(sRootDir+'\*.*',faAnyFile,srWork) = 0 [b]then[/b]
  [b]begin[/b]
    [b]try[/b]
      [b]repeat[/b]
        [b]if[/b] (srWork.Attr [b]and[/b] faDirectory) <> faDirectory [b]then[/b]
        [b]begin[/b]
          FileTimeToSystemTime(srWork.FindData.ftLastAccessTime,stWork);
          Memo1.Lines.Add(Format('%d.%d.%d %d:%d:%d',[stWork.wDay,stWork.wMonth,stWork.wYear,stWork.wHour,stWork.wMinute,stWork.wSecond]));
        [b]end[/b];
      [b]until[/b] FindNext(srWork) <> 0;
    [b]finally[/b]
      FindClose(srWork);
    [b]end[/b];
  [b]end[/b];
[b]end[/b];

und funktioniert (erstaunlicher Weise).
Jetzt muss ich direkt mal suchen, was ich das letzte Mal anders gemacht hatte. (falls ich des entsprechende Stückes Sourcecode noch habhaft werden kann )