用DELPHI实现为NT添加用户

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;
源代码网推荐 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;