Hallo,
ich lese einen Ordner aus uns möchte die Dateien in einer TListView anzeigen
und verknüpfen. Dabei soll das Orginal DateiIcon zu sehen sein. Ist das irgendwie
möglich?
Lese zur Zeit flgendermaßen den Ordner aus.
Delphi-Quellcode:
var
SearchRec: TSearchRec;
begin
FindFirst(ExtractFilePath(Application.Exename) + '*.*', faAnyFile, SearchRec);
repeat
ListBox1.items.add(searchrec.Name);
until FindNext(searchrec) <> 0;
findclose(searchrec);
end;
--- Edit ---
Auflisten klappt schonmal weiß nur nicht wie ich die Symbole anzeigenlassen soll.