Поиск в подкатологах

[Anton931]

помогите осуществить поиск по всем дискам и подкатологам,
пишу так

procedure FindFiles;
var
  WFD:WIN32_Find_Data;
  HFile:THandle;
  DType:Byte;
  Drive: Char;
  mask: PChar;
begin
  mask:='*.txt';
  for Drive:='a' to 'z' do
  DType:=GetDriveType(PChar(Drive+'\'));
    case DType of
      DRIVE_FIXED{HARD},DRIVE_REMOVABLE{USB}:
        begin
          HFile:=FindFirstFile(DType+mask,WFD);//Ищем файлы только в указанном каталоге
          if HFile<>INVALID_HANDLE_VALUE then //Проверяем отсутствие ошибок
          begin
            repeat
              if (WFD.dwFileAttributes and faDirectory)<>faDirectory then//Проверка что это не папка
              Form1.Memo1.Lines.Add(WFD.cFileName);
            until FindNextFile(HFile,WFD)<>True;
            Winapi.Windows.FindClose(HFile);
          end;
      end;
  end;
end;

именно WIN32_Find_Data без использования tsearchrec.

[min@y™]

а где рекурсия-то?

[HTTqp]

может подставлять имя если это папка надо)

[min@y™]

http://eax.me/winapi-file-search/

да и ващще, вотЪ.

[Anton931]

Сообщение от min@y™

http://eax.me/winapi-file-search/

да и ващще, вотЪ.

раздел Delphi, ссылка на С не знаю к чему

[min@y™]

раздел Delphi, ссылка на С не знаю к чему

ну ты ж сам просил через API

WIN32_Find_Data

[Anton931]

а у нас оказывается API=C, то есть на других языках включая Delphi нет! Раздел Delphi читай внимательно, а не набивай посты!!!

[min@y™]

а у нас оказывается API=C

Да, мне, собственно, пофигу, как там у вас.

то есть на других языках включая Delphi нет!

Я этого и не говорил. Какая разница? Язык не имеет значения, я показал, как выглядит рекурсивный алгоритм с использованием типа WIN32_Find_Data. Не более.
Если хочешь, чтобы этот алгоритм был реализован на delphi - напиши его на delphi, вот и всё.

Раздел Delphi читай внимательно, а не набивай посты!!!

А чо такое "набивай посты"?