in einem TListview Verzeichnisse und Dateien anzeigen ?

[CCRDude]

Wenn es um den einfachsten Weg geht, hier mal noch ein Beispiel der Verwendung von FindFirst etc., das ich gerade bei mir ausgeschnitten habe:

Delphi-Quellcode:

   ec := FindFirst(APath, faAnyFile, sr);
   while ec=0 do begin
      if (sr.Name<>'.') and (sr.Name<>'..') then begin
         sFilename := ExtractFilePath(APath)+sr.Name;
         if (sr.Attr and faDirectory)=0
          then FireFileFoundEvent(sFilename,sr)
           else FireFolderFoundEvent(sFilename,sr);
      end;
      ec := FindNext(sr);
   end;
   SysUtils.FindClose(sr);

Schau einfach auf Zeile 5: das TSearchRec, das FindFirst/FindNext füllen (hier so einfallslos "sr" benannt), beinhaltet ein Feld Attr, in dem Du nur prüfen musst, ob faDirectory dort gesetzt ist oder nicht.