[sariman]

Собственно как реализовать помощью SelectDirectory?
Пытаюсь:

Код:

var
  Directory: string;
begin
  if SelectDirectory('Выбери папку:', '', Directory) then
    SendMessage(PlayList.Handle, LB_DIR, DDL_DIRECTORY, Integer(Directory));

Однако при выборе папки в плэйлист добавляется только имя, подскажите..
Ах да, еще желательно бы чтобы подпапки учитывались.

[lmikle]

Функция SelectDirtectory возвращает тебе ТОЛЬКО имя выбранной пользователем папки. Далее делаем поиск всех файлов (если надо - рекурсивно по подпапкам) с помощью функций FindFirst/FindNext/FindClose. Примеров использования этих функций везде полно, в том числе в документации достаточно понятный пример.

[sariman]

Вот нашел пример, но при выборе локального диска, выдает в листбоксе с двумя флэшами, например: D:\\Files\Music, а если просто папку с подпапками, то выводит нормально, подскажите в чем проблема?

Код:

procedure GetAllFiles(const Path: string; ListBox: TListBox );
var
  sRec: TSearchRec;
  isFound: Boolean;
begin
  isFound := FindFirst(Path + '\*.*', faAnyFile, sRec) = 0;
  while isFound do
  begin
    if (sRec.Name <> '.') and (sRec.Name <> '..') then
    begin
      if (sRec.Attr and faDirectory) = faDirectory then
        GetAllFiles(Path + '\' + sRec.Name, ListBox);
      if Pos('.mp3', Copy(sRec.Name, Length(sRec.Name)-3, 4)) = 1 then
        ListBox.Items.Add(Path + '\' + sRec.Name);
      if Pos('.AAC', Copy(sRec.Name, Length(sRec.Name)-3, 4)) = 1 then
        ListBox.Items.Add(Path + '\' + sRec.Name);
    end;
    Application.ProcessMessages;
    isFound := FindNext(sRec) = 0;
  end;
  FindClose(sRec);
end;

[poli-smen]

Сообщение от sariman

Вот нашел пример, но при выборе локального диска, выдает в листбоксе с двумя флэшами, например: D:\\Files\Music, а если просто папку с подпапками, то выводит нормально, подскажите в чем проблема?

Вместо явного добавления слэша используй функцию IncludeTrailingPathDelimiter()

[sariman]

Что выполняет эта функция? Не понимаю что вы подразумеваете под "явным добавлением слэша", имеете ввиду вот это?

Код:

Path + '\' + sRec.Name

[poli-smen]

Сообщение от sariman

Что выполняет эта функция? Не понимаю что вы подразумеваете под "явным добавлением слэша", имеете ввиду вот это?

Код:

Path + '\' + sRec.Name

Да, это явное добавления слэша. Вместо этого делай так:

Код:

IncludeTrailingPathDelimiter(Path) + sRec.Name

p.s. Естественно необязательно каждый раз, можно например сохранить в какую-то переменную (локальную в этой функции или в эту же переменную если убрать const)

[sariman]

Огромное спасибо!