关于netuseradd

//Copy的资料。非本人Write
给你源程序。 
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;