摘要: procedure searchfile(path:string);//注意,path后面要有'\'; var SearchRec:TSearchRec; found:integer; begin found:=FindFirst(path+'*.*',faAnyFile,SearchRec); while found=0 do begin if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') and (SearchRec.Attr<>faDir 阅读全文
posted @ 2012-10-19 13:52 马儿快跑 阅读(13229) 评论(4) 推荐(0) 编辑