Spisak MP3 sa folderima

Code:

procedure TraversePath(ADir: string; AFiles: TStrings);
var
  lpFindFileData: TWIN32FindData;
  FileName: string;
  hFindFile: THandle;
begin
  ADir := IncludeTrailingPathDelimiter(ADir);

  hFindFile := FindFirstFile(PChar(ADir + '*'), lpFindFileData);
  if hFindFile <> INVALID_HANDLE_VALUE then
  repeat
    FileName := lpFindFileData.cFileName;

    if lpFindFileData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
      AFiles.Add(ADir + FileName)
    else begin
      if (FileName <> '.') and (FileName <> '..') then
        TraversePath(ADir + FileName, AFiles);
    end;
  until not Windows.FindNextFile(hFindFile, lpFindFileData);

  Windows.FindClose(hFindFile);
end;