delphi 文件夹权限设置（执行一个小脚本的笨办法）

如题，
研究了一天，也没再网上找到比较好的方式，自己做了一个。
方法如下：

1.创建一个 cmd 命令文件。
2.调用该命令。

代码如下：
   S:='echo y|cacls h: /t /c /g everyone:F';
  AssignFile(F, 'c:FolderRight.cmd'); 
   rewrite(f);
  Append(F); // 以追加的方式打开文件
   Writeln(F, S); // 将S变量中的内容追加到文本尾后。
   CloseFile(F); // 关闭文件
   ShellExecute(handle,'open','c:FolderRight.cmd','','',SW_ShowNormal);

注意：只支持 NTFS 格式。
因为Delphi底子比较薄弱，所以本人向来追求简单易学之功效。

分离控制的话，SetFileSecurity不好用，一般还是改ACL的方法

http://bbs.csdn.net/topics/310190565