哪位高手能提供delphi中某个目录搜索文件名的算法？

Question

譬如说，搜索c:\所有的目录下文件名是desktop.ini的算法 
谢谢！！ 

Answer 1

1。添加一个BUTTON 和一个EDIT ，一个MEMO控件，一个LABEL。
   BUTTON=‘开始’，
  MEMO控件：LEFT=128 TOP=38 WIDTH=233 HEIGHT=219 SCROLLBARS=SSBOTH
 EDIT控件 
  LEFT=128 TOP=5 WIDTHH=233 HEIGHT=22
 2。 再构造一个自定义过程PROCDDURE TFORM1.MAKETREE，再添加以下代码：
 procedure tform1.maketree;
 var 
    sr:tsearchrec;
    err:integer;
    filepath:string;
begin
   err:=findfirst('*.*',$37,sr);
   while (err=0) do 
   begin
     if sr.name[1]<>'.' then
      begin
         if (sr.attr and fadirectory)=0 then
          begin
            end;
          if (sr.attr and fadirectory)=16 then
         begin
           filepath:=expandfilename(sr.name);
           directoryedt.lines.add(filepath);
            chdir(sr.name);
             maketree;
             chdir('..');
           end;
             err:=findnext(sr);
           end;
          end;
3.响应按纽空件的CLICK事件 ，添加原代码如下：
     procedure tform1.searchbtnclick(sender:tobject);
       begin
           directoryedt.lines.clear;
           chdir(pathedt.text);
          maketree;
       end;
  需要说明的是，以上全是小写字母，完全是为了方便，但是给你带来不便，真是不好意思啊，忘见凉！！！！
    以后自己多多努力啊，祝你成功！！！
                                                           sky8281
                                                            5.22

Answer 2

子目录级的文件查询的实现在应用实践中，我们经常会用到文件查询功能。通过Win95中提供的懳募檎覓，我们可以
方便的找出磁盘上任何子目录下的文件，其原因是该查找功能可以遍历指定目录下的所有子
目录中的文件。从编程角度讲，它实现了子目录级的文件查询。其实，这项功能并不难实现，关键是能理解并掌握懙莨閽这种程序设计思路。本人用Delphi
实现了该项功能（任意子目录级），由于使用了懙莨閽，程序思路清晰，代码量小。 实现方法：1． 获取当前目录下的所有下一级子目录，2． 存入字符串列表中（Tstrings）。其中，用到了几个API函数。FindFirst是找出指定目录下第一个文件或目录。FindNext一般和FindFirst配合使用，用来找出下一个文件或目录。FindClose用来关闭查询。（以上函数Delphi在线帮助中有详尽解释，在此不赘述）；3． 用FileExists函数查找当前目录，4． 寻找是否有满足条件的文件存在。5． 依次使各个子目录成为当前目录，6． 递归调用本函数。7． 释放资源，8． 返回查询结果。　　代码如下：1． 从搜索记录中判断是否是子目录。　function IsValidDir(SearchRec:TSearchRec):Boolean;beginif (SearchRec.Attr=16) and(SearchRec.Name<>'.') and(SearchRec.Name<>'..') thenResult:=TrueelseResult:=False;end;2． 这是查询主体函数。参数介绍：Mainpath： 指定的查询目录。Filename： 欲查询的文件。Foundresult： 返回的含完整路径的匹配文件（可能有多个）。如果有匹配文件，函数返回True，否则，返回False;　function SearchFile(mainpath:string;filename:string;var foundresult:TStrings):Boolean;vari:integer;Found:Boolean;subdir1:TStrings;searchRec:TsearchRec;beginfound:=false;if Trim(filename)<>'' thenbeginsubdir1:=TStringList.Create;//字符串列表必须动态生成//找出所有下级子目录。if (FindFirst(mainpath+'*.*', faDirectory, SearchRec)=0) thenbeginif IsValidDir(SearchRec) thensubdir1.Add(SearchRec.Name);while (FindNext(SearchRec) = 0) dobeginif IsValidDir(SearchRec) thensubdir1.Add(SearchRec.Name);end;end;FindClose(SearchRec);//查找当前目录。if FileExists(mainpath+filename) thenbeginfound:=true;foundresult.Add(mainpath+filename);end;//这是递归部分，查找各子目录。for i:=0 to subdir1.Count-1 dofound:=Searchfile(mainpath+subdir1.Strings[i]+'\',Filename,foundresult)or found;//资源释放并返回结果。subdir1.Free;end;result:=found;end;　总之，只要掌握了思路，用哪种编程语言都可以实现。现在，你可以轻松的给你的系统挂上
一个非常使用的功能了。

Answer 3

你手上有《delphi开发人员指南》吗，那上面有