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
