Eigene Playlist entwickeln?!

[Cyberaxx]

Da es noch irgendwie zum Thema passt, wie realisiere ich es recht einfach das verschiedene Formate hinzufügen kann ohne das der Vorgang viel mehr Zeit braucht.

Delphi-Quellcode:

procedure TPlayList.FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean = True);
var
  SR: TSearchRec;
  aMediaItem: TMediaItem;
begin
  RootFolder := IncludeTrailingPathDelimiter(RootFolder);

  if Recurse then
    if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
    try
      repeat
        if SR.Attr and faDirectory = faDirectory then
          if (SR.Name <> '.') and (SR.Name <> '..') then
            FindAllFiles(RootFolder + SR.Name, Mask, Recurse);
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  if FindFirst(RootFolder + Mask, faAnyFile, SR) = 0 then
  try
    repeat
      if SR.Attr and faDirectory <> faDirectory then
      begin
        //FList.Add(RootFolder + SR.Name);
        aMediaItem := FMediaItems.Add;
        aMediaItem.Directory := RootFolder;
        aMediaItem.Filename := SR.Name;
      end;
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;
end;

So würde ich jede Datei hinzufügen, also müsste ich da Prüfen ob es ein "bekanntes" Format ist oder gibt es eine schnellere/effektivere Lösung gerade wenn ich mal nen neues Format hinzufügen will?