Поиск папки

[WOLFak]

еще вопрос
как по всему компьютеру найти папку с определенным именем(имя например 'Games')
а если их несколько то найти все папки по очереди пример
я ввожу 'Games' а она мне выбивает: G:\Games

[alexBlack]

FindFirst / FindNext рекурсивно

[WOLFak]

function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
как вызывать с какими параметрами?

[alexBlack]

В смысле непонятно как использовать саму FindFirst или как применить ее в твоем варианте ?

[WOLFak]

как использовать
с какими параметрами?

[alexBlack]

Вот в общих чертах алгоритм поиска на одном диске

procedure FindInPath(Path:String; Name:String; L:TStrings);
begin
     N := findFirst(Path+'*.*', faDirectory, F); 
     While N = 0 do begin

          if F.Name = Name then begin
             // Очередной найденный файл 
             L.Add(Path+F.Name);

          end; 
   
          if F.Attr = faDirectory then begin
               FindInPath(  Path + F.Name+'\'
          end; 
 
          N := findNext(F)
     end;
end;

// Поиск на одном диске 
procedure find(Disk, name:String; L:TStrings);
begin
    FindInPath(Disk+'\', Name, L);
end;

// Вызов 
L := TStrinList.Create;
find('C:\', 'Games', L);

Еще нужно определить количество лок.дисков и пройтись по всем.

[alexBlack]

А как использовать функцию в справке простой пример

[mihali4]

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

А как использовать функцию в справке простой пример

Ставим курсор на FindFirst и жмем F1 - получаем пример от Борланда...
Такое тоже неизвестно?

[WOLFak]

известно
дайте исходник (

[alexBlack]

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

Ставим курсор на FindFirst и жмем F1 - получаем пример от Борланда...
Такое тоже неизвестно?

Спасибо за уточнение