用DELPHI实现为NT添加用户

来源：百度文库编辑：神马文学网时间：2024/04/28 05:38:21

[Delphi]用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;

用DELPHI实现为NT添加用户用DELPHI的RTTI实现对象的XML持久化 mysql 添加用户 MYSQL添加远程用户 Delphi中PING的实现 Delphi和Java实现webservice 添加MySql用户并授权添加MySql用户并授权用FASTREPORT实现WEB应用中自定义报表 - Delphi - 编程开发 - 破釜... Delphi.NET 内部实现分析(1) Delphi.NET 内部实现分析(2) Delphi.NET 内部实现分析(3.1) Delphi.NET 内部实现分析(3.2) Delphi.NET 内部实现分析(3.3) Delphi.NET 内部实现分析(3.4) Delphi.NET 内部实现分析(4) Delphi.NET 内部实现分析(5) Delphi中PING的实现ewe Delphi中PING的实现a Delphi屏幕截图技术实现2 Delphi屏幕截图技术实现d Delphi.NET 内部实现分析(5) Delphi.NET 内部实现分析(4) Delphi.NET 内部实现分析(3.4)