查找一个目录下的某些特定的文件

查找一个目录下的某些特定的文件 
 方法如下：
 
  FileSearch ：查找目录中是否存在某一特定文件
  FindFirst ：在目录中查找与给定文件名（可以包含匹配符）及属性集相匹配的第一个文件
  FindNext ：返回符合条件的下一个文件
  FindClose ：中止一个FindFirst / FindNext序列
 
  //参数：
  //Directory : string 目录路径
  //RetList : TStringList 包含了目录路径和查询到的文件
 
  Funtion FindAllFileInADirectory(const : string; var RetList : TStringList):Boolean;
  var
  SearchRec: TSearchRec;
  begin
  if FindFirst(Directory + '*.*', faAnyFile, SearchRec) = 0 then
  begin
  repeat
  RetList.Add(Directory + '\' + SearchRec.Name);
  until (FindNext(SearchRec) <> 0);
  end
  FindClose(SearchRec);
  end;