设置文件夹安全?急急急!!

Merrybip 2006-02-07 11:53:01
1.怎么添加nt用户
2.怎么设置ntfs磁盘安全属性(就是用户访问权限属性,此属性可以应用到子文件夹中,就是在磁盘新建文件夹也有这个安全属性)
分数不够可以在加
...全文
110 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
lovcal 2006-02-23
  • 打赏
  • 举报
回复
调用函数winexec,用法你可查查delphi的帮助,我也忘了
lovcal 2006-02-23
  • 打赏
  • 举报
回复
用delphi调用命令行
然后命令行中使用如下命令:
添加用户--net user UserName password /add(/delete)
添加到Users组--net localgroup users UserName /add(/delete)
Merrybip 2006-02-09
  • 打赏
  • 举报
回复
怎么没有人帮我!!!
Merrybip 2006-02-08
  • 打赏
  • 举报
回复
还有删除用户,添加用户是怎么添加到那个组里(如users)
Merrybip 2006-02-07
  • 打赏
  • 举报
回复
还有添加nt系统用户,删除nt系统用户?
在线等ing
aiirii 2006-02-07
  • 打赏
  • 举报
回复
修改NTFS文件目錄的權限

var
NewDacl, OldDacl: PACl;
pSidOwner, pSidGroup : PSID;
//SD: PSecurityDescriptor;
SD : PSECURITY_DESCRIPTOR;
EA: TExplicitAccessW;
begin
GetNamedSecurityInfo(PChar('d:\temp2'), SE_FILE_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, @OldDacl, nil, SD);
BuildExplicitAccessWithName(@EA, PChar('Everyone'), GENERIC_ALL, GRANT_ACCESS, SUB_CONTAINERS_AND_OBJECTS_INHERIT);
SetEntriesInAcl(1, @EA, OldDacl, NewDacl);
SetNamedSecurityInfo(PChar('d:\temp2'), SE_FILE_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, NewDacl, nil);
end;
aiirii 2006-02-07
  • 打赏
  • 举报
回复
http://teach.spaceedu.com/A200508/2005-08-07/185937.html

用DELPHI实现为NT添加用户
文章出处: 作者: 发布时间:2005-11-12
用DELPHI实现为NT添加用户 usri1_name:pwidechar;
usri1_password:pwidechar;
usri1_password_age:dword;
usri1_priv:dword;
usri1_home_dir:pwidechar;
usri1_comment:pwidechar;
usri1_flags:dword;
usri1_script_path:pwidechar;
end;
buffer=^USER_INFO_1;
var
Form1: TForm1;

implementation

{$R *.DFM}
function NetUserAdd(Server:PWideChar;Level:DWORD;Buf:pointer;ParmError
:dword):LongInt;
stdcall; external 'netapi32.dll'

procedure TForm1.Button1Click(Sender: TObject);
var buf:buffer;
error:pchar;
begin
getmem(buf,sizeof(USER_INFO_1));
with buf^ do
begin
usri1_name:='123e';
usri1_password:='123456789';
usri1_password_age:=0;
usri1_priv:=1;
usri1_home_dir:=nil;
usri1_comment:=nil;
usri1_flags:=1;
usri1_script_path:=nil;
end;
netuseradd(nil,1,pointer(buf),
// showmessage(inttostr(netuseradd(nil,1,pointer(buf),0)));
freemem(buf);
end;

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧