Ein Codeschnipsel aus einem mp3 Projekt.
Kannst es Dir ja anpassen.
Grüße
Klaus
Delphi-Quellcode:
procedure FillMP3FileList(Folder: string; sl: TStrings);
var Rec : TSearchRec;
begin
sl.Clear;
if SysUtils.FindFirst(Folder + '*.mp3', faAnyFile, Rec) = 0 then
try
repeat
sl.Add(Rec.Name);
until SysUtils.FindNext(Rec) <> 0;
finally
SysUtils.FindClose(Rec);
end;
end;
wobei SL eine StringList ist.