Unterverzeichnisse durchsuchen

[yankee]

Ich habe demletzt für mich sowas ähnliches geschrieben. Es läd eine ganze Ordnerstruktur in ein Menü rein:

Delphi-Quellcode:

procedure TMainForm.addDir(dirinfo: TOrdnerInfo);
var temp: TMenuItem;
    procedure addItems(const pfad,filter: string; const Attr: integer; MenParent: TMenuItem);
    var sr: TSearchRec;
        temp: TMenuItem;
    begin
        if FindFirst(pfad + filter, attr, sr) =0 then
        repeat
            if (sr.Name ='.') or (sr.Name ='..') then continue;
            temp :=TMenuItem.Create(popupmenu1);
            temp.Caption :=sr.Name;
            if sr.Attr =faDirectory then addItems(pfad + sr.Name + '\', filter, Attr, temp)
            else temp.OnClick :=DateiClick;
            MenParent.Add(temp);
        until FindNext(sr) <> 0;
    end;
begin
    temp :=TMenuItem.Create(PopupMenu1);
    temp.Caption :=dirinfo.ItemNamed['label'].Value;
    addItems(IncludeTrailingPathDelimiter(dirinfo.ItemNamed['pfad'].Value), dirinfo.ItemNamed['filter'].Value, dirinfo.ItemNamed['Attr'].IntValue, temp);
    with Popupmenu1.Items.Find('Verzeichnisse') do
    begin
        Add(temp);
        Visible :=true;
    end;
end;

dirinfo ist hier einfach nur ein xml-Element, aus dem ich pfad, filter usw. auslese. Da kannst du natürlich auch was "normales" reinschrieben.