1 procedure TForm2.FindFile(APath: string; Filter: string; Rev: TStrings;
2 SubDir: Boolean);
3 var
4 R: Integer;
5 F: TSearchRec;
6 begin
7 if APath[Length(APath)] <> '\' then
8 APath := APath + '\';
9 R := FindFirst(APath + '*.*', faAnyFile, F);
10 while R = 0 do
11 begin
12 if (F.Attr and faDirectory = faDirectory) and SubDir then
13 begin
14 if (F.Name <> '.') and (F.Name <> '..') then
15 begin
16 FindFile(APath + F.Name, Filter, Rev);
17 end;
18 end
19 else
20 begin
21 if (Filter = '*.*') or
22 (LowerCase(ExtractFileExt(Filter)) = LowerCase(ExtractFileExt(F.Name)))
23 then
24 Rev.Add(F.Name);
25 end;
26 R := FindNext(F);
27 end;
28 FindClose(F);
29 end;
