一个简单的文件搜索问题

Question

我想在一个特定的文件加里面搜索。bmp文件，如在c:\windows下找出所有的
bmp文件，怎么做，简单点最好

Answer 1

api函数
findfirst
findnext

Answer 2

findfirst 找到第一个
接着用findnext 直到返回值等于0为止
看看帮助文档

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  s:TSearchRec;
begin
   if FindFirst('c:\windows\*.*',faAnyFile,s)=0 then
     repeat
       if ExtractFileExt(s.Name)='.bmp' then memo1.Lines.Add(s.Name);
     until FindNext(s)<>0;
end;