android开发

摘要： 本文来自http://blog.csdn.net/hellogv/procedure TSysClass.FindAll(path: String; var fileresult: TStrings);//查找文件 ，path不带'/'var fpath,s: String; fs: TsearchRec; i:integer;begin fpath:=path+'/*.*'; if FindFirst(fpath,faAnyFile,fs)=0 then begin if (fs.Name<>'.')and(fs.Name<& 阅读全文

摘要： 本文章来自http://blog.csdn.net/hellogv//////////////////////////////////以下是锁定文件夹的方法 procedure TSysClass.QuickLock(DirList:TStrings); //DirList是保存文件夹的列表var UnLockDIRList:TStrings; i:integer; IsLock:boolean;begin UnLockDIRList:=TStringList.Create; UnLockDIRList.Add('以下目录锁定失败,请检查有文件是否正被使用或者是空文件夹:'); 阅读全文