FindFile

procedure FindFiles(StartDir: string);
var
  SR: TSearchRec;   //用来储存返回的文件的一些数据
  IsFound: Boolean;//做为一个标志
begin
  IsFound :=FindFirst(StartDir+'*.htm', faAnyFile-faDirectory, SR) = 0;
//在startdir里面查找htm文件
  while IsFound do begin
//如果找到htm文件
    GetEmailAddress(startdir+sr.Name);
//这里调用我们自己定义的函数，传递的参数是startdir+sr.name也就是该文件的绝对路径。
//注意，这里的函数 GetEmailAddress我们等一下再来描述    
    IsFound := FindNext(SR) = 0;
//继续查找htm文件，只到标志isfound为false
  end;
  FindClose(SR);
  IsFound := FindFirst(StartDir+'*.*', faAnyFile, SR) = 0;
//现在是查找所有的文件
  while IsFound do begin
    if ((SR.Attr and faDirectory) <> 0) and(SR.Name[1] <> '.') then
      findfiles(startdir+sr.Name+'/');
//如果该文件是目录，并且不是"."或者".."，那么就在该目录里继续查找，也就是在这里递归了。
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);
end;