Delphi在Windows中搜索文件的示例源码，请输入需要搜索的文件，下边选择搜索的范围：目录路径即可。搜索文件代码如下： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 Memo1.Clear; 　　 if Trim(Edit2.Text)<>'' then 　　 begin 　　 FindFiles(pchar(Trim(Edit1.Text))); 　　 if Memo1.Lines.Count<1 then 　　 ShowMessage('没有找到符合条件的文件.'); 　　 en