var sd:SECURITY_DESCRIPTOR;begin InitializeSecurityDescriptor(@sd,SECURITY_DESCRIPTOR_REVISION);SetSecurityDescriptorDacl(@sd,true,nil,false);SetFileSecurity('文件名或者目录名',DACL_SECURITY_INFORMATION,@sd);end;如果要设置目录和目录下的所有文件，那么要一个一个设置 ...
delphi 代码设置文件夹权限方法
var
sd:SECURITY_DESCRIPTOR;
begin
InitializeSecurityDescriptor(@sd,SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@sd,true,nil,false);
SetFileSecurity('文件名或者目录名',DACL_SECURITY_INFORMATION,@sd);
end;
如果要设置目录和目录下的所有文件，那么要一个一个设置2011-06-14
有API的，你可以上网查查。2011-06-14
