TreeView auf mehrere Unterverzeichnisse zugreifen lassen?

[marabu]

Hier meine Änderungen:

Delphi-Quellcode:

{ ... }
implementation

uses
  StrUtils;

const 
  SEXT = '.png';
{ ... }
        Else
          // Eintrag ist eine Datei
          If aWithFiles
          and (AnsiIndexStr(SearchRec.Name, ['.', '..']) < 0)
          and SameText(ExtractFileExt(SearchRec.Name), SEXT) Then
          Begin
            New (Info);
            Info^.Path := False;
            Info^.Name := aPath + SearchRec.Name;
            aTree.Items.AddChildObject (aNode, ChangeFileExt(SearchRec.Name, ''), Info);
          End;
{ ... }
procedure TForm1.ListChange(Sender: TObject; Node: TTreeNode);
{ ... }
      fn := ImageRootPath +  NodePath(node) + SEXT;
{ ... }