Question

delphi 代码设置文件夹权限方法

我要给一个文件夹加上everyone的操作权限,应该怎么写，最好写出代码，或给我个例子 ，要好用的 谢了
我那个文件夹存一个要复制的文件 如果没有权限就不能复制 ，必须给这个文件夹权限 我不可能每个安装我软件差的的人手动去修改他文件夹的权限 我要通过代码直接修改这个文件夹的权限 求代码，上网查的看不懂没用中文解释

Answer 1

var
sd:SECURITY_DESCRIPTOR;
begin
InitializeSecurityDescriptor(@sd,SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@sd,true,nil,false);
SetFileSecurity('文件名或者目录名',DACL_SECURITY_INFORMATION,@sd);
end;
如果要设置目录和目录下的所有文件，那么要一个一个设置

追问

这样写好像设置成功了,能给我讲下这段代码是什么意思吗？，这样设置是给文件夹最高的操作权限吗？

Answer 2

有API的，你可以上网查查。