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

本文章来自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;