Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Файловая система \ Каталоги \ Сканирование дерева каталогов

Сканирование дерева каталогов

Довольно простенький пример.

procedure TForm1.ScanDir(Path, Mask : String);
var
SR : TSearchRec;
Found : Integer;
Attr : Integer;
begin
Attr := faReadOnly + faHidden + faSysFile + faArchive + faDirectory;
Found := FindFirst(Path + Mask, Attr, SR);
while Found = 0 do
begin
ProcessSearch(Path, SR); - в ней отлавливай все что хочеш.
Application.ProcessMessages;
if (SR.Name <>'.') and (SR.Name <>'..') then
if (SR.Attr and faDirectory) <>0 then
ScanDir(AddBackslash(Path + SR.Name), Mask);
Found := FindNext(SR);
end;
FindClose(SR);
end;

Название: Сканирование дерева каталогов
Дата публикации: 2004-01-27 (3191 Прочтено)

 
 

 

Page generation 0.034 seconds