Eigenen Explorer: Datum von Datei und keine Ordner zeigen

[GuenterS]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sr: tsearchrec;
  found: integer;
begin
   found:= findfirst(Edit1.Text+'\*',faanyfile,sr);
   while found=0 do
   begin
      if ((sr.attr and faDirectory)=0) then
         with ListView1.Items.Add do
         begin
            found:=findnext(sr);
            Caption := (sr.Name);
            Subitems.Add(formatfloat('0.00',sr.Size / 1024)+' KB');
            Subitems.Add(DateTimeToStr(sr.time)); 
         end;
      found := findnext(sr); //<--- haste auch vergessen
   end;
   findclose(sr)
end;

Sorry hab mich verschrieben date gibts nicht dafür time. Steht alles in der Hilfe in Delphi.

Mögliche Suchbegriffe FindFirst, FindClose, FindNext, TSearchRec