如何用DELPHI设置NTFS目录权限?(100分)

  • 主题发起人 主题发起人 eshiwei
  • 开始时间 开始时间
E

eshiwei

Unregistered / Unconfirmed
GUEST, unregistred user!
代码:
[:)]如何用DELPHI设置NTFS目录权限?

如:一个目录要求设置administrators system 完全控制 test用户只有读写权限!
 
据说这个控件可以
http://www.online-admin.com/download.html
没有测试过,你可以试试
 
很多人都推这个给我,不过他原来的例子太复杂化了,呵呵!不过功能的确是很好!可惜的是没有原代码,不知道有没有大虾能来个比较简单的例子我学习下!谢谢![:D]
 
最简单的就是调用CMD命令去实现
CACLS filename [/T] [/E] [/C] [/G user:perm] [/R user [...]]
[/P user:perm [...]] [/D user [...]]
filename 显示 ACL。
/T 更改当前目录及其所有子目录中
指定文件的 ACL。
/E 编辑 ACL 而不替换。
/C 在出现拒绝访问错误时继续。
/G user:perm 赋予指定用户访问权限。
Perm 可以是: R 读取
W 写入
C 更改(写入)
F 完全控制
/R user 撤销指定用户的访问权限(仅在与 /E 一起使用时合法)。
/P user:perm 替换指定用户的访问权限。
Perm 可以是: N 无
R 读取
W 写入
C 更改(写入)
F 完全控制
/D user 拒绝指定用户的访问。
在命令中可以使用通配符指定多个文件。
也可以在命令中指定多个用户。
那么你只要用winexec('cmd.exe /c cacls *****',sw_hide);
****是你想要的参数
 
DOS命令的确好用[:)]
 
你这样是没有错!但是参数有很多是不能全的!就像建系统用户一样,你要设置到期时间及永不过期什么的就控制不到!你那办法我还有更好的用xcacls更好!就是想用程序实现了啦![:)]
 

Similar threads

回复
0
查看
820
不得闲
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
890
DelphiTeacher的专栏
D
后退
顶部