【文件属性】：
文件名称：Delphi在Windows中搜索文件的示例源码.rar
文件大小：8KB
文件格式：RAR
更新时间：2022-07-30 11:10:27
Delphi源码-系统相关
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('没有找到符合条件的文件.');
end
else
ShowMessage('请输入查找文件.');
end;
【文件预览】：
srcfans.com
----搜索文件()
--------Project2.dsk(5KB)
--------Unit1.dfm(2KB)
--------Unit1.ddp(51B)
--------Project2.dof(2KB)
--------Project2.res(876B)
--------Unit1.pas(2KB)
--------Project2.cfg(434B)
--------Project2.dpr(188B)
--------Unit1.dcu(6KB)