Sucheergebnisse zur Laufzeit in Popupmenu übertragen

[Zackebarsch]

WOW funktionier super danke !
wie kann ich jetzt noch zusätlich die dateien anzeigen ?
meiner erfahrung nach zeigt er bei faanyfile nur noch dateien na und keine verzeichnisse mehr, genauso wie bei fadirectory + faanyfile ... ?!?

vielen dank scp !

edit : hab jetzt einfach noch ne procedure FilestoMenu dazugemacht, scheint zu funzen :

Delphi-Quellcode:

blabla ...

   DirTreeToMenu(pfad + '\' + sr.Name, NeuesItem); // Nach Unterordnern suchen
   FilesToMenu(pfad + '\' + sr.Name, NeuesItem);

blabla ...

Delphi-Quellcode:

 
procedure FilesToMenu(pfad : String; Parent : TMenuItem);
var
  i : integer;
  NeuesItem : TMenuItem;
  iattr : integer;
  sr : TSearchRec;
begin
  NeuesItem := TMenuItem.Create(Parent); // Neuen Seperator erzeugen
  Parent.Add(neuesitem);// dem Popup-Menü hinzufügen
  NeuesItem.Tag:=0;
  NeuesItem.Caption := '-';
   i:=0;
    iattr := faanyfile;
    if FindFirst(pfad + '\*.mp3', iattr, sr) = 0  then
       begin
       repeat
          if (sr.Attr and iAttr) = sr.Attr then
              begin
                  inc(i);
                  NeuesItem := TMenuItem.Create(Parent); // Neuen Eintrag erzeugen
                  Parent.Add(neuesitem);// dem Popup-Menü hinzufügen
                  NeuesItem.Caption := sr.Name;
             end;
      until FindNext(sr) <> 0;
      end;
  FindClose(sr);
  end;