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;