Developing.ru

Код: Выделить всё

procedure SearchFiles(const dir:string);
var
  sr: TSearchRec;
  fn:string;
begin
  if FindFirst(dir+'*',faAnyFile,sr) = 0 then
    begin
      repeat
        if sr.Name[1]<>'.' then
          begin
            fn:=sr.Name;
            if sr.Attr and faDirectory=faDirectory then SearchFiles(dir+fn+'\') else
              if Copy(fn,Length(fn)-3,MaxInt)='.bmp' then
                begin
                  ListBox1.Items.Add(fn);
                  ListBox2.Items.Add(dir+fn);
                end;
          end;
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
end;

Код: Выделить всё

procedure TForm1.PlayList(Path: string);
var
     FindRes:Integer;
  SearchRec: TSearchRec; 
begin
FindRes:=FindFirst(Path+'*.*',faAnyFile,SearchRec);
While FindRes=0 do
   begin
      if ((SearchRec.Attr and faDirectory)=faDirectory) and
      ((SearchRec.Name='.')or(SearchRec.Name='..')) then
         begin
            FindRes:=FindNext(SearchRec);
            Continue;
         end;

      // если найден каталог, то
      if ((SearchRec.Attr and faDirectory)=faDirectory) then
         begin
            // входим в процедуру поиска с параметрами текущего каталога +
            // каталог, что мы нашли
            PlayList(Path+SearchRec.Name+'\');
            FindRes:=FindNext(SearchRec);
            // после осмотра вложенного каталога мы продолжаем поиск
            // в этом каталоге
            Continue; // продолжить цикл
         end;

      ListBox1.Items.Add(SearchRec.Name);
      ListBox2.Items.Add(Path+SearchRec.Name);
      FindRes:=FindNext(SearchRec);
   end;
FindClose(SearchRec);
end;