2016年1月26日
获取一个文件夹下的所有文件
摘要： //包括文件夹里面的文件 uses Masks; // procedure TForm1.Button1Click(Sender: TObject); // begin // Memo1.Lines.Clear; // GetFileListEx('Z:\', '*.*', Memo1.Lines, False); // Caption:=IntToStr(Memo1.Lines.count)... 阅读全文
posted @ 2016-01-26 10:16 h2z 阅读(545) 评论(0) 推荐(0)