Um mp3 Dateien zu finden kann der Code von Marabu folgendermaßen erweitert werden:
Delphi-Quellcode:
// Anstatt: s.Add(folder + sr.Name);
if CompareText(ExtractFileExt(SR.Name),'.mp3')=0 then s.Add(folder + sr.Name);
CompareText unterscheidet keine Klein-/Großschreibung. Es wird sowohl '.MP3' als auch '.mp3' gefunden.