关于用Delphi操作Windows下文件以及文件夹的几个问题

Question

1、怎样查找一个文件夹下所有符合一定条件的文件名（如：找出该文件夹下所有以.doc为扩展名的文件名称）？2、怎样查找一个文件夹下包含的所有文件（或文件夹）的名称？
请指点，谢谢！

Answer 1

1.用TSearchRec来遍历，
  类似http://community.csdn.net/Expert/topic/4679/4679222.xml?temp=.893902
2.递归一下就可以了。

Answer 2

谢谢楼上这位。不过我还是不太明白。我把我的问题再描述得清楚些：假设我有这样的目录结构：
比如：有这样一个目录层次
D:\
   MyMusic\
       track01.mp3
       track02.mp3
       track03.mp3
   MyMovie\
       MyFatherAndMother.avi
       Love\
           Love01.rmvb
           Love02.rmvb
       Action\
           Lixiaolong1.rm
           Lixiaolong2.rm现在我想达到的目的是 找出D:\ 根目录下的目录名称（即：MyMusic和MyMovie），不包括文件名和子目录名称，请问怎样实现？

Answer 3

var sr:TSearchRec;
    Found:integer;
    path:string;
begin
  path:='D:\';
  found:=FindFirst(path+'*.*',faAnyFile,sr);
  while (found=0) do
    begin
      if sr.Name[1]<>'.' then
        begin
          if ((sr.Attr and faDirectory)=16) then
          Memo1.Lines.Add(sr.Name)
        end;
     found:=FindNext(sr);
    end;
end;