目录文件递规

     fr:=FindFirst(Path,faAnyFile,sr);

    while fr=0 do
    begin
       if (sr.Attr=faDirectory)and(sr.Name<>'.')and(sr.Name<>'..') then
           FindAll(path+sr.Name)
       else
          begin
            showmessage(sr.name);
          end;

       fr:=FindNext(sr);
    end;

    FindClose(sr);