Dateien eines Ordners in ein SubMenu einfügen

[Ben]

Moin,

ich brauch für eine Art MP3-Player eine Funktion, die alle Dateien aus einem bestimmten Ordner in ein Untermenü einfügt. Da auch noch Unterordner vorhanden sind, wäre es gut, wenn diese auch mit einbezogen werden, also d.h. als Extra-Menüs.
Praktisch soll das nachher aussehen wie das Windows-Startmenü, d.h. dass die Menüs/Untermenüs und Einträge den Ordnern/Unterordnern und MP3's entsprechen.
Schlecht erklärt, aber ich hoffe jemand versteht es :mrgreen: Wäre kewl, wenn da jemand 'nen Rat hat...

Greetz, Ben :hi:

[oki]

Hi,
schau mal in der Kategorie Dateiverwaltung (Hilfe) nach. Dort findest du eine Menge Methoden für das Finden von Dateien und dem Umgang mit deren Namen.
Mit dem Ermitteln der Dateinamen, extraieren des Phades hast du Deine Bezeichner für die Items. Wie du Items zu Menüs hinzufügst müstest du wissen. Wenn nicht frag noch mal.

Einige relevante Methoden für dich:

Delphi-Quellcode:

function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;

function FindNext(var F: TSearchRec): Integer;

procedure FindClose(var F: TSearchRec);

usw.

Gruß oki