如何使用windowsAPI在系统中添加一个用户？(100分)

hippoGao · 2003-09-23

急，多谢 使用windowsAPI 但是不是shellexecute（"net user add ..."）；这样的语句

ztaif · 2003-09-23

winexec('net user  username password /add ' ,0)

h_q_p · 2003-09-23

type   USER_INFO_1 = record     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;   uBuf1 = ^USER_INFO_1; function NetUserAdd(   Server: PWideChar;   Level: DWORD;   Buf: pointer;   ParmError: dword): Longint; stdcall; external 'netapi32.dll'; procedure TForm1.Button1Click(Sender: TObject); var   buf:uBuf1; begin   GetMem(buf,sizeof(USER_INFO_1));   try     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));   finally     FreeMem(buf);   end;

如何使用windowsAPI在系统中添加一个用户？(100分)

hippoGao

Unregistered / Unconfirmed

ztaif

Unregistered / Unconfirmed

h_q_p

Unregistered / Unconfirmed

Similar threads