请教：如何用delphi实现windows资源管理器中的文件搜索功能

Question

该从何入手
有这样的控件吗？

Answer 1

FindFirst, FindNext, FindClose函数，遍历目录。要查找文件内容么？就复杂点？要做索引库，就更加复杂点。

Answer 2

procedure Tgetfilename.Button1Click(Sender: TObject);
begin
  SearchCurrentFiles(edit1a.Text ,edit2a.Text ,listview1,2);
end;procedure Tgetfilename.SearchCurrentFiles(filepath:string; FileType:string; listview: TListview; viewstyl:integer);
var
  Search:TSearchRec;
  iCount:integer;
begin
  if filePath[Length(filePath)]<>'\' then
  FilePath:=filePath+'\';  case viewstyl of
       0:listview.ViewStyle:=vsIcon;
       1:listview.ViewStyle:=vsList;
       2:listview.ViewStyle:=vsReport;
       3:listview.ViewStyle:=vsSmallIcon;
  end;
   listview.Items.Clear;
   listview.StateImages :=nil;
  Try
    iCount:=FindFirst(FilePath +FileType,faAnyFile,Search);
    while iCount =0 do
    begin
      if (Search.name<>'.')and(Search.name<>'..') then
      begin
        with listview.items.Add do
          begin
            caption:=Search.name;
            subitems.Add(inttostr(search.Size));
            subitems.Add('报表文件');
            subitems.Add(DateTimeToStr(FileDateToDateTime(FileAge(filepath+search.Name))));
          end;
      end;
      iCount:=FindNext(Search)
    end;
  finally
    FindClose(Search);
  end;end;