BCB 遍历指定目录

void __fastcall TForm1::Button1Click(TObject *Sender) { TStringList *FileList = new TStringList(); SearchDir("c:\WINNT", FileList); Memo1->Lines->Assign(FileList); } //--------------------------------------------------------------------------- //搜索指定目录的函数 void __fastcall TForm1::SearchDir(AnsiString Dir, TStrings *FileList) { TSearchRec sr; if (FindFirst(Dir + "\*.*", faAnyFile, sr) == 0) { do{ FileList->Add(Dir + "\" + sr.Name); }while(FindNext(sr) == 0); FindClose(sr); } }

 

转载于:https://www.cnblogs.com/luyuxibaby/p/5217275.html

相关资源：BCB获取系统下所有设备名称