遍历文件夹下的文件

函数声明：
void __fastcall ListFile(const String fileName,TStringList* sl);
函数体：
void  __fastcall TForm1::ListFile(const String fileName,TStringList* sl)
{
    if(fileName.Length()<1)
        return;

    TSearchRec StrRecord;
    int iAttributes = 0;
    iAttributes |=faHidden;
    if(FindFirst(fileName+"//*.wma", iAttributes, StrRecord) == 0){  // 可以查询所有文件 //"*.*"
        sl->Add(fileName+"//"+StrRecord.Name);
        while (FindNext(StrRecord) == 0)
        {
            sl->Add(fileName+"//"+StrRecord.Name);
        }
        FindClose(StrRecord);
    }
}
//--------------------------------------------------------------
调用函数
void __fastcall TForm1::btn_1Click(TObject *Sender)
{
    mmo_1->Clear();
    TStringList *demo= new TStringList();

    ListFile(edt_1->Text,demo);

    for(int i=0; i<demo->Count; i++){
        mmo_1->Lines->Add(demo->Strings[i]);
    }
} 
函数完成功能： 通过输入的文件夹名遍历其内部的所有文件。
调用函数，将遍历的结果显示到文本框中。