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;