Natürlich funktioniert es - wenn die Dateien im
aktuellen Verzeichnis liegen.
TSearchRec enthält in der Eigenschaft
.Name den Dateinamen inklusive Extension, nicht aber einen Verzeichnisanteil.
Ändere den Quelltext mal wie folgt ab:
Delphi-Quellcode:
...
SetCurrentDir ('C:\'); // neu
if FindFirst(dir+'\*.mp3', faAnyFile, sr) = 0 then begin
repeat
if ReadID3v2Tag(sr.Name, lTitle, lArtist, lAlbum, lYear, lComment, lTrackNo) then begin
...
Die .mp3-Dateien sollten weiterhin gefunden werden, da FindFirst() eine Verzeichnisangabe erhält. Das Auslesen der ID3-Tags sollte aber nicht mehr funktionieren, weil alle Dateien im aktuellen Verzeichnis (hier C:\) gesucht werden.
Gruß Hawkeye