用ADSI目录服务接口,到MS去下载一个SDK,一切高顶
解决方案 »
- Delphi7 IdTcpClient 连接问题?
- 求一个SQL语句,ACCESS库
- 关于ClientDataSet控件的使用
- Delphi关于通过日期来查询access数据库问题(解决立即结贴)
- delphi2005 asp.net学习示例二,有源码
- 大侠们:错误too many consecutive 怎么回事?
- ClientDataSet 的字段都是程序生成的,怎么生成一个计算字段(CalcFields)呢?
- 請問一下下面這段代碼有什么區別﹐關于create(...)的
- 急问
- 用画布打印屏幕上的表格时,如何判断表格的长度是否超过纸宽?
- 数据库联结如何取注册表中的信息???
- 有谁用过mmtools2.0控件,如何解除IDE 的限制?
能否详细些。
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;
.....
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;