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;