TWin32FindData.TFileTime nach TDateTime?

[Sharky]

Hai Christian,

hier mal mein Stück TestCode:

Code:

[b]procedure[/b] TForm1.Button1Click(Sender: TObject);
[b]var[/b]
 sr                 : TSearchRec;
 searchpath         : [b]string[/b];
[b]begin[/b]
 Memo1.Clear;
 searchpath := 'c:\testfiles\*.*';
 [b]if[/b] (FindFirst(searchpath, faAnyFile - faDirectory, sr) = 0) [b]then[/b]
  [b]begin[/b]
   Memo1.Lines.Add(sr.FindData.cFileName);
   Memo1.Lines.Add('Erstellungsdatum : ' + ' ' + DateTimeToStr(FileTimeToDateTime(sr.FindData.ftCreationTime)));
   Memo1.Lines.Add('letzte Änderung  : ' + ' ' + DateTimeToStr(FileTimeToDateTime(sr.FindData.ftLastWriteTime)));
   Memo1.Lines.Add('letzter Zugriff  : ' + ' ' + DateTimeToStr(FileTimeToDateTime(sr.FindData.ftLastAccessTime)));
   Memo1.Lines.Add('-----------------');
  [b]end[/b];
 [b]while[/b] FindNext(sr) = 0 [b]do[/b]
  [b]begin[/b]
   Memo1.Lines.Add(sr.FindData.cFileName);
   Memo1.Lines.Add('Erstellungsdatum : ' + ' ' + DateTimeToStr(FileTimeToDateTime(sr.FindData.ftCreationTime)));
   Memo1.Lines.Add('letzte Änderung  : ' + ' ' + DateTimeToStr(FileTimeToDateTime(sr.FindData.ftLastWriteTime)));
   Memo1.Lines.Add('letzter Zugriff  : ' + ' ' + DateTimeToStr(FileTimeToDateTime(sr.FindData.ftLastAccessTime)));
   Memo1.Lines.Add('-----------------');
  [b]end[/b];
 FindClose(sr);
[b]end[/b];

System:
Delphi 5 ent.
Windows 2000 SP1