摘要：
procedure TForm1.RzBitBtn1Click(Sender: TObject);var searchrec: TSearchrec; //********************************* path, FileName: string; //最简单的使用(文件) 查找 findresult: integer; //只能搜索指定目录（不包含子文件夹） arr: ar... 阅读全文
posted @ 2010-04-13 12:19
bingege
阅读(262)
评论(0)
推荐(0)