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(IncludeTrailingPathDelimiter(Edit1.Text)+'*.*',faanyfile,sr);
   while found=0 do
   begin
      if ((sr.attr and faDirectory) <> faDirectory) then
         with ListView1.Items.Add do
         begin
            // found:=findnext(sr);  //<-- das darf net rein an der stelle
            Caption := (sr.Name);
            Subitems.Add(formatfloat('0.00',sr.Size / 1024)+' KB');
            Subitems.Add(DateTimeToStr(FileDateToDateTime(sr.time)));
         end;
      found := findnext(sr); 
   end;
   findclose(sr)
end;

Zusätzlich solltest Du Dir Gedanken darüber machen wie du die Größe der Datei ausgeben willst, denn sr.size liefert nun mal _keinen_ float sondern integer.