Delphi 遍历所有目录和子目录下的文件名（可按后缀名遍历）

procedure EnumFileInQueue(path: PChar; fileExt: string; fileList: TStringList);   var     searchRec: TSearchRec;      found: Integer;      tmpStr: string;      curDir: string;      dirs: TQueue;      pszDir: PChar;   begin     dirs := TQueue.Create; //创建目录队列      dirs.Push(path); //将起始搜索路径入队      pszDir := dirs.Pop;      curDir := StrPas(pszDir); //出队      {开始遍历,直至队列为空(即没有目录需要遍历)}     while (True) do     begin        //加上搜索后缀,得到类似'c:\*.*' 、'c:\windows\*.*'的搜索路径         tmpStr := curDir + '\*.*';         //在当前目录查找第一个文件、子目录         found := FindFirst(tmpStr, faAnyFile, searchRec);         while found = 0 do //找到了一个文件或目录后         begin            //如果找到的是个目录            if (searchRec.Attr and faDirectory) <> 0 then           begin            {在搜索非根目录(C:\、D:\)下的子目录时会出现'.','..'的"虚拟目录"            大概是表示上层目录和下层目录吧。。。要过滤掉才可以}              if (searchRec.Name <> '.') and (searchRec.Name <> '..') then              begin                 {由于查找到的子目录只有个目录名，所以要添上上层目录的路径                  searchRec.Name = 'Windows';                  tmpStr:='c:\Windows';                  加个断点就一清二楚了                 }                 tmpStr := curDir + '\' + searchRec.Name;                  {将搜索到的目录入队。让它先晾着。                  因为TQueue里面的数据只能是指针,所以要把string转换为PChar                  同时使用StrNew函数重新申请一个空间存入数据，否则会使已经进                  入队列的指针指向不存在或不正确的数据(tmpStr是局部变量)。}                 dirs.Push(StrNew(PChar(tmpStr)));               end;            end           else //如果找到的是个文件            begin               {Result记录着搜索到的文件数。可是我是用CreateThread创建线程                来调用函数的，不知道怎么得到这个返回值。。。我不想用全局变量}              //把找到的文件加到Memo控件               if fileExt = '.*' then                 fileList.Add(curDir + '\' + searchRec.Name)               else              begin                 if SameText(RightStr(curDir + '\' + searchRec.Name, Length(fileExt)), fileExt) then                    fileList.Add(curDir + '\' + searchRec.Name);               end;            end;             //查找下一个文件或目录            found := FindNext(searchRec);         end;         {当前目录找到后，如果队列中没有数据，则表示全部找到了；          否则就是还有子目录未查找，取一个出来继续查找。}        if dirs.Count > 0 then        begin           pszDir := dirs.Pop;            curDir := StrPas(pszDir);            StrDispose(pszDir);         end        else           break;      end;      //释放资源      dirs.Free;      FindClose(searchRec);   end;       //调用   procedure TForm1.Button1Click(Sender: TObject);   var     dir: string;      FileNameList: TStringList;   begin     dir := trim(Edit1.Text);      FileNameList := TStringList.Create;      //EnumFileInQueue(PChar(dir), '.*', FileNameList);      EnumFileInQueue(PChar(dir), '.*', FileNameList);      ShowMessage(IntToStr(FileNameList.Count));      FileNameList.Free;   end;