好象 Delphi 对于 netapi32.dll 中所有的函数及结构体都没定义,所以得自己。
只可惜太多太繁,要是谁已定义过,希望能共享。我只定义了少数几个:unit NetAPI;interfaceuses
Windows, Pubdata, Pubfunc;const
netapi32 = 'netapi32.dll';
MAXARRAYLEN = 65536;// 用户组资料
type
P_A_LOCALGROUP_INFO_1 = ^A_LOCALGROUP_INFO_1;
st_LOCALGROUP_INFO_1 = record
lgrpi1_name: PWideChar;
lgrpi1_comment: PWideChar;
end;
A_LOCALGROUP_INFO_1 = array [0..MAXARRAYLEN-1] of st_LOCALGROUP_INFO_1;// 用户组成员资料
type
P_A_LOCALGROUP_MEMBERS_INFO_3 = ^A_LOCALGROUP_MEMBERS_INFO_3;
st_LOCALGROUP_MEMBERS_INFO_3 = record
lgrmi3_domainandname: PWideChar;
end;
A_LOCALGROUP_MEMBERS_INFO_3 = array [0..MAXARRAYLEN-1] of st_LOCALGROUP_MEMBERS_INFO_3;// 用户资料
type
P_A_USER_INFO_1 = ^A_USER_INFO_1;
st_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;
A_USER_INFO_1 = array [0..MAXARRAYLEN-1] of st_USER_INFO_1;
// 释放网络资源,必须调用
function NetApiBufferFree(buffer: pointer): DWORD; stdcall;
external netapi32 name 'NetApiBufferFree';// 读取用户组资料
function NetLocalGroupEnum(servername: PWideChar; level: DWORD;
var bufptr: P_A_LOCALGROUP_INFO_1; prefmaxlen: DWORD;
var entriesread, totalentries, resumehandle:DWORD): DWORD; stdcall;
external netapi32 name 'NetLocalGroupEnum';// 读取用户组成员资料
function NetLocalGroupGetMembers(servername: PWideChar; localgroupname: PWideChar;
level: DWORD; var bufptr: P_A_LOCALGROUP_MEMBERS_INFO_3; prefmaxlen: DWORD;
var entriesread, totalentries, resumehandle:DWORD): DWORD; stdcall;
external netapi32 name 'NetLocalGroupGetMembers';
function NetUserEnum(servername :PWideChar;
level, filter: DWORD;
var bufptr: P_A_USER_INFO_1;
prefmaxlen: DWORD;
var entriesread, totalentries, resume_handle: DWORD): DWORD; stdcall;
external netapi32 name 'NetUserEnum';implementationend.
只可惜太多太繁,要是谁已定义过,希望能共享。我只定义了少数几个:unit NetAPI;interfaceuses
Windows, Pubdata, Pubfunc;const
netapi32 = 'netapi32.dll';
MAXARRAYLEN = 65536;// 用户组资料
type
P_A_LOCALGROUP_INFO_1 = ^A_LOCALGROUP_INFO_1;
st_LOCALGROUP_INFO_1 = record
lgrpi1_name: PWideChar;
lgrpi1_comment: PWideChar;
end;
A_LOCALGROUP_INFO_1 = array [0..MAXARRAYLEN-1] of st_LOCALGROUP_INFO_1;// 用户组成员资料
type
P_A_LOCALGROUP_MEMBERS_INFO_3 = ^A_LOCALGROUP_MEMBERS_INFO_3;
st_LOCALGROUP_MEMBERS_INFO_3 = record
lgrmi3_domainandname: PWideChar;
end;
A_LOCALGROUP_MEMBERS_INFO_3 = array [0..MAXARRAYLEN-1] of st_LOCALGROUP_MEMBERS_INFO_3;// 用户资料
type
P_A_USER_INFO_1 = ^A_USER_INFO_1;
st_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;
A_USER_INFO_1 = array [0..MAXARRAYLEN-1] of st_USER_INFO_1;
// 释放网络资源,必须调用
function NetApiBufferFree(buffer: pointer): DWORD; stdcall;
external netapi32 name 'NetApiBufferFree';// 读取用户组资料
function NetLocalGroupEnum(servername: PWideChar; level: DWORD;
var bufptr: P_A_LOCALGROUP_INFO_1; prefmaxlen: DWORD;
var entriesread, totalentries, resumehandle:DWORD): DWORD; stdcall;
external netapi32 name 'NetLocalGroupEnum';// 读取用户组成员资料
function NetLocalGroupGetMembers(servername: PWideChar; localgroupname: PWideChar;
level: DWORD; var bufptr: P_A_LOCALGROUP_MEMBERS_INFO_3; prefmaxlen: DWORD;
var entriesread, totalentries, resumehandle:DWORD): DWORD; stdcall;
external netapi32 name 'NetLocalGroupGetMembers';
function NetUserEnum(servername :PWideChar;
level, filter: DWORD;
var bufptr: P_A_USER_INFO_1;
prefmaxlen: DWORD;
var entriesread, totalentries, resume_handle: DWORD): DWORD; stdcall;
external netapi32 name 'NetUserEnum';implementationend.
解决方案 »
- Delphi的ASM、指针偏移等问题
- 如何将TClientDataset的Delta存到一个字段中
- 将C++代码转换成相应的Delphi代码
- 如何不让access不自动生成锁定文件(.ldb)或者让自动生成的锁定文件指定固定位置
- 第二十七期:CSDN论坛秀-Delphi版-本期作秀:duxin(小伍)
- ASN.1编解码?
- 请问高手:如何用数据绑定控件正确显示数据库中的时间字段
- 如何编程实现 "禁用WIN98工具栏" ,注册表里有没有这个选项?或还有其它办法?
- 如何在Delphi中读写Word文档
- 各位,为了交流方便,共同进步,留下自己的信息和联系方式好吗?
- 哪里有delphi7的教材下载?
- 一个工程,unit1上放一grid,再新建一data module(也就是将数据源不和表放一起)
http://www.delphi-jedi.org/Jedi:APILIBRARY:38493