最简单地锁定文件夹！！！

本文章来自http://blog.csdn.net/hellogv/

---

/////////////////////////////////以下是锁定文件夹的方法 procedure TSysClass.QuickLock(DirList:TStrings); //DirList是保存文件夹的列表 var UnLockDIRList:TStrings; i:integer; IsLock:boolean; begin UnLockDIRList:=TStringList.Create; UnLockDIRList.Add('以下目录锁定失败,请检查有文件是否正被使用或者是空文件夹:'); for i:=0 to DIRList.Count -1 do begin IsLock:=false;//本来就是锁定失败 if GetDirSize(DirList.Strings[i],true)>0 then //如果文件夹不为空 ,则执行下面语句，如果为空则ISLock＝false IsLock:=RenameFile(DIRList.Strings[i],DIRList.Strings[i]+'../'); //通过修改文件夹名称来检测文件夹是否可以锁定 if IsLock= false then begin //如果锁定失败，则记录目录夹名称 UnLockDIRList.Add(DIRList.Strings[i]); end; end; if UnLockDIRList.Count = 1 then begin //全文件夹成功被锁定 ShowMessage('文件夹锁定成功!'); exit; end; if UnLockDIRList.Count > 1 then //部分文件夹没有被锁定 ShowMessage(UnLockDIRList.Text); UnLockDIRList.Free; end; /////////////////////////////////以下是解锁文件夹的方法 procedure TSysClass.UnLock(DIRList:TStrings); var i,ii:integer; FileList:TStrings; label loop; begin FileList:=TStringList.Create; for i:=0 to DirList.Count -1 do begin //-----------------------------先创建锁定文件夹的入口 FileList.Clear; CreateDir(DirList.Strings[i]+'./') ;//创建锁定文件夹的入口 FindAll(DirList.Strings[i]+'./',FileList); SysFunctions.FileMove(DirList.Strings[i]);//文件解密成功或不用解密直接解锁文件夹 loop: end; ShowMessage('成功解锁文件夹!'+#10+'如果被锁定的文件夹还没有被删除'+#10+'请不要手动删除'+#10+'本程序关闭时会自动删除!'); end; 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<>'..') then if (fs.Attr and faDirectory)=faDirectory then findall(path+'/'+fs.Name,fileresult) else fileresult.add(path+'/'+fs.Name); while findnext(fs)=0 do begin if (fs.Name<>'.')and(fs.Name<>'..') then if (fs.Attr and faDirectory)=faDirectory then Findall(path+'/'+fs.Name,fileresult) else begin fileresult.add(path+'/'+fs.Name); end; end; end; Findclose(fs); end;