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