Здесь мы рассмотрим функцию FindAllInDir, которая будет искать все файлы и каталоге в заданной директории и выводить их в компонент ListBox. Для пример возьмем папку Windows.
procedure FindAllInDir(const sPath: string; iAttr: integer; sList: TStrings);
var
rec: TSearchRec;
bEOF: boolean;
begin
bEOF:= false;
if FindFirst(sPath, iAttr, rec) < 0 then
exit
else
while not bEOF do
begin
sList.Add(rec.Name);
bEOF:= FindNext(rec) <> 0;
end;
FindClose(rec);
end;
procedure TForm1.btnFindClick(Sender: TObject);
begin
FindAllInDir('C:\Windows\*.*', faAnyFile, ListBox1.Items);
end;
Комментарии