Delphi在Windows中搜索文件的示例源码.rar
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