Учебные демонстрационные программы на С++ в borland c++ builder 6

6. Модуль Find_File_c.exe (рис. 7) – 
выполняет внутрипрограммный поиск файлов 
без online-выхода из выполняемого модуля в 
среду Windows, а также запуск на выполнение 
найденного exe-модуля. В данном модуле вы-
полняется, например, запуск графического 
пакета tecplot. 
Рис. 7. Копия формы demo-модуля поиска файла 
Приведем главную рекурсивную функ-
цию ListFiles_n для поиска файлов и несколь-
ко вспомогательных функций, которые могут 
быть полезны начинающим программистам.
Входные параметры функции List-
Files_n:
AnsiString path – строка-директория 
начального поиска, 
AnsiString filename – искомый файл, 
TStrings* List – для результатов поиска. 
Для хранения и визуального обзора най-
денных результатов поиска на форме преду-
смотрен объект типа Memo. 

---

Учебные демонстрационные программы…
71 
void ListFiles_n(AnsiString path,AnsiString filename, TStrings* List) 
{ TSearchRec sr; 
if (FindFirst(path+"*.*", faAnyFile, sr) == 0) 
{ do 
{ if (sr.Attr & faDirectory) 
{ if (sr.Name!=".") 
if (sr.Name!="..") 
{ ListFiles_n(path+sr.Name+"\\",filename,List); } 
}
else 
{ if (sr.Name.UpperCase()==filename.UpperCase()) 
{ n=n+1; outfile=path+sr.Name; 
List->Add(IntToStr(n)+" "+outfile);} } 
} 
while (FindNext(sr) == 0); 
FindClose(sr); 
} 
Application->ProcessMessages(); 
} 
// функция-кнопка Button2Click – поиск файла и запись результатов в область Memo1 
void __fastcall TForm1::Button2Click(TObject *Sender) 
{ int kk2=10; Memo1->Clear(); 
GetTimeFormat (NULL,NULL,NULL,"HH':'mm':'ss",lptime,kk2); 
strcpy(s,""); strcat(s,"Tbeg="); strcat(s,lptime);