TSearchRec


FindFirst是用来寻找目标目录下的第一个文件，FindNext则是寻找下一个
TSearchRec是一个文件信息的纪录，当FindFirst返回SearchRec时，你可以通过SearchRec.Name获取文件名，以及SearchRec.Size获取文件大小等信息。  

TSearchRec类型定义如下： 

type 
      TSearchRec = record 
      Time : Integer; 
      Size : Integer; 
      Attr : Integer; 
      Name : TFileName; 
      ExcludeAttr : Integer; 
      FindHandle : THandle; 
      FindData : TWin32FindData; 
      end;


     
     当利用FindFirst和FindNext函数找到一个文件后，利用这个类型可以获得文件的属性、大小和修改时间等信息。

var
 SearchRec:TSearchRec;   //搜索对象
 ext,AppPath:string;
 begin
    listbox1.Clear;        //清空列表框
    AppPath:=edit1.text;   //设置要搜索的目标目录
    ext:='*.*';            //设置要搜索的文件后缀名    FindFirst(AppPath+ext,faAnyFile,SearchRec);    //-faDirectory
    listbox1.Items.Add(SearchRec.Name);           //添加文件名称
    while FindNext(SearchRec)=0 do
       listbox1.Items.Add(SearchRec.Name);        //添加文件名 end;
  
  
 //更多注释:
   //TSearchRec 结构是内涵文件大小、名称、属性与时间等信息
   //TSearchRec 中的属性是一个整数值, 可能的值有:
   //faReadOnly  1   只读文件
   //faHidden    2   隐藏文件
   //faSysFile   4   系统文件
   //faVolumeID  8   卷标文件
   //faDirectory 16  目录文件
   //faArchive   32  归档文件
   //faSymLink   64  链接文件
   //faAnyFile   63  任意文件
   //s 的值也可以使用?通配符,好像只支持7个?, 如果没有条件就是*, 譬如: C:\*
   //实际使用中还应该在 repeat 中提些条件, 譬如判断如果是文件夹就递归搜索等等

   



function            FindFirst(           const            Path:            string           ;            //包含路径和通配符的字符串，如f:\test\*.*          


                      Attr:            Integer           ;            //文件属性          


                      var             F: TSearchRec            //一个结构(或叫记录)          


                      ):            Integer           ;               //返回值，成功返回0 ，失败返回-1