本文章来自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;
分享到:
相关推荐
最安全简单的文件加密软件-Folder Guard(文件夹卫士) Folder Guard(文件夹卫士)是一套强力的计算机安全...然后呢,能迅速地锁定文件夹,而不需要等待时间;还要,加密软件必须能在不被人发觉的情况下对文件夹做好保护。
一旦文件夹被锁定,就不可能破解它。 如果您忘记了VenSafe密码,则可以在经过一小段安全性问题后,请求恢复邮件或将其显示在屏幕上。 您可以在设置中设置恢复邮件,并获取VenSafe密码。 如果输入的密码不正确,则会...
● 2、最简单易用:软件安装之后,只要在要加密的文件夹上点鼠标右键,选择“加(解)锁”,即可实现加密或解密您的文件夹,傻瓜化的操作界面即使对不懂电脑的人也能让您加解密得心应手,进入加密的文件夹操作完毕退出...
即便您保存时出现了失误,神笔马良强制码字软件也会不分青红皂白蛮横地把您的整篇文稿复制黏贴到临时文件夹! 当然,系统没有自动发送到邮箱的设置,即便这个功能做起来非常简单。但我讨厌邮箱,每天有无数的垃圾...
即便您保存时出现了失误,系统也会不分青红皂白蛮横地把您的整篇文稿复制黏贴到临时文件夹! 虚拟分卷为本软件首创功能,极大地维护了文稿的安全及提高了系统运行的快捷,无论在软件内如何分卷,不会影响真实文档...
即便您保存时出现了失误,神笔马良强制码字软件也会不分青红皂白蛮横地把您的整篇文稿复制黏贴到临时文件夹! 当然,系统没有自动发送到邮箱的设置,即便这个功能做起来非常简单。但我讨厌邮箱,每天有无数的垃圾...
除了上面这些,一种上传软件可以锁定一个本地文件夹到活动远程窗格中,索引配置文件夹(目录)选项,配置缓存文件夹,自动刷新文件夹转移和导航事件后,设置公差服务器设置问题,递归删除整个文件夹,删除到回收站,等等。...
TagSpaces具有基本的文件管理操作,因此可以用作简单的文件管理器。 您可以为每个文件夹和标签分配自定义颜色,这使可视搜索变得很容易。 您可以向每个文件或文件夹添加自定义缩略图和文本描述。 与大多数文件标记...
最简单就是,你直接删除文件或文件夹,然后使用SVN Commit提交更新到SVN服务器。另外一种方法是在你要删除的文件或文件夹上点击右键=>>TortoiseSVN=>>Delete删除,此方法也不是直接删除,而是将该文件或文件夹的状态...
2,本来添加了删除指定项目的功能最后选则屏蔽了这个功能,改成了一键清空项目,因为这样更简单实用。 3,可以再目录“data”文件夹存放一个鼠标经过项目提示音 格式 1.wav 4,可以再目录“data”tianq.txt文件...
无忧隐藏的设计理念是用最简单的操作实现最实用的隐私保护功能,尽量为用户考虑周全。例如您设定按下鼠标快捷键来隐藏网页浏览器,如果按下鼠标快捷键时恰好点击在一个超级链接上,您不必担心会有新的网页打开。 ...
WinRar压缩包助手功能 ...•winrar压缩包助手采用winrar程序文件夹下自带的rar.exe执行具体的操作,不但速度快,而且还安全可靠。 •请注意:本软件只能处理WinRar压缩包,对winzip压缩包无能无力
简单易用的文件及文件夹隐藏功能可有效保护隐私文件。进程隐藏功能可用来实现游戏多开或隐藏修改工具。快速隐藏功能亦可用来实现快速窗口切换,提高工作效率。 隐藏图标的最佳工具。无忧隐藏以强化隐私保护为核心...
操作简单,上手容易。轻松设置之后,就可以一边喝茶一边等着程序完工了。 winrar压缩包助手采用winrar程序文件夹下自带的rar.exe执行具体的操作,不但速度快,而且还安全可靠。 请注意:本软件只能处理...
无忧隐藏的设计理念是用最简单的操作实现最实用的隐私保护功能,尽量为用户考虑周全。例如您设定按下鼠标快捷键来隐藏网页浏览器,如果按下鼠标快捷键时恰好点击在一个超级链接上,您不必担心会有新的网页打开,...
创建自释放文件,可以制作简单的安装程序,使用方便;强大的档案文件修复功能,最大限度恢复损坏的 rar 和 zip 压缩文件中的数据,如果设置了恢复记录,甚至可能完全恢复等等…… WinRAR - 最新版本的最新更新 ...
还有很多朋友问 是如何把组策略提取出来的 其实很简单。组策略设置完了 都会保存到 c:\windows\system32\GroupPolicy里 只要第一次修改好了组策略 然后把c:\windows\system32\GroupPolicy复制出来 保存起来 下次再...
作为一款功能强大的光盘菜单制作软件,你只需要几个简单的步骤就能轻松快速地制作出非常漂亮个性的自动运行菜单。为了您的项目安全,你应该设置一个密码,让别人无法修改或复制。您可以逐个像素地选择控制和按箭头键...
这是最好的和简单的文件夹锁定应用程序。 您可以使用代码锁定任何文件夹。 您只需要在代码中更改密码即可使用。 编译它,构建它并使用它。 您也可以根据需要对其进行修改。 欢迎反馈。 谢谢你。
具体的修改方法如下:打开“我的电脑”中的“工具”,选择“文件夹属性”,调出“查看”标签,在“高级设置”部分滚动至最底部将“简单文件共享(推荐)”前面的选择取消,另外如果选项栏里还有“Mickey Mouse”项也将...