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