文件名称: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)