Jak wyszukac wszystkie pliki o rozszerzeniach *.pas; *.dpr itd.

procedure TForm1.FileSearch(const PathName, FileName : string; const InDir : boolean);
var Rec  : TSearchRec;
  Path, CurFile, AllFiles : string;
  i: integer;
begin
Path := IncludeTrailingBackslash(PathName);
AllFiles:=FileName;
while AllFiles<>'' do begin
 i:=pos(';', AllFiles);
 if i=0 then begin
    CurFile:=Trim(AllFiles);
    AllFiles:='';
 end else begin
    CurFile:=Trim(Copy(AllFiles, 1, i-1));
    Delete(AllFiles, 1, i);
 end;
 if FindFirst(Path + CurFile, faAnyFile - faDirectory, Rec) = 0 then
 try
   repeat
     ListBox1.Items.Add(Path + Rec.Name);
   until FindNext(Rec) <> 0;
 finally
   FindClose(Rec);
 end;
end;

If not InDir then Exit;

if FindFirst(Path + '*.*', faDirectory, Rec) = 0 then
try
 repeat
 if {(Rec.Attr and faDirectory) and} (Rec.Name <> '.') and (Rec.Name <> '..') then
   FileSearch(Path + Rec.Name, FileName, True);
 until FindNext(Rec) <> 0;
finally
 FindClose(Rec);
end;
end; //procedure FileSearch - .  

Oto przykład:

FileSearch('C:\\mojfolder', '*.pas', CheckBox1.State in [cbChecked]);

//Zaczerpnięte z Experts-Exchange