Нужно найти все подпапки скрытой папки.

[Дима я]

procedure TForm1.Button2Click(Sender: TObject);

var
  sr: TSearchRec;
  FileAttrs: Integer;
begin
FileAttrs := faDirectory;
  with ListBox1 do
    begin
      if FindFirst('C:\*.*', FileAttrs, sr) = 0 then
        begin
          repeat
            if (sr.Name = '.') or (sr.Name = '..') then
                Continue;
            if (sr.Attr and FileAttrs) = sr.Attr then
              ListBox1.Items.Add(sr.Name) ;
          until FindNext(sr) <> 0;
      FindClose(sr);
        end;
        end;
end;

Вот нашел код,но он ничего не определяет что касаеться скрытых папок

[Дима я]

Кстати у меня на С еще есть папка Program Files она не скрытая но тоже не находиться(((

[bitSoft]

FileAttrs := faDirectory or faSysFile or faHidden;

[Дима я]

Спасибо но это не помогло((

[Ntlegend]

вот примерчик удаления всех файлов с задной директории.. включая поддиректории.. т.е. он находит все что есть и удаляет.. думаю сможешь адаптировать под свои нужды

procedure ffind(cat: string);
var sea:TSearchRec;
begin
FindFirst(cat+'*', faAnyFile,sea);
repeat
 if not (((sea.Attr and faDirectory)<>0) and ((Sea.Name='.')or(Sea.Name='..')))
  then begin
   if ((sea.Attr and faDirectory)<>0)
    then begin
     Ffind(cat+Sea.Name+'\');
     try
      RmDir(cat+Sea.Name);
     except
     end;
    end
    else begin
     DeleteFile(cat+Sea.Name);
    end;
  end;
  sleep(1);
until FindNext(Sea)<>0;
FindClose(Sea);
end;

[alegz81]

попробуй
http://www.yunqa.de/delphi/doku.php/...lefinder/index

[Дима я]

Вот такой вот получился код

procedure TForm1.ffind(cat: string);
var
  searchResult : TSearchRec;
begin
ListBox1.Clear;
  // Пробуем найти каталоги выше текущего каталога
  SetCurrentDir('..');

  if FindFirst(cat+'*', faDirectory, searchResult) = 0 then
  begin
    repeat
      // Показываем только каталоги
      //if (searchResult.attr and faDirectory) = faDirectory
      //then
      Listbox1.Items.Add(searchResult.Name);
    until FindNext(searchResult) <> 0;

    // Должен освободить ресурсы, используемые этими успешными, поисками
    FindClose(searchResult);
  end;
end;