吐血求救 ，2000中如何使用 NetSessionEnum 函数来取得 当前访问 本机的网络用户的信息？(备份送分帖)

[iamycfwsy]

请班主不要删除本帖，是专用来感谢高手了，但可惜高手还没有出现

[iamycfwsy]

主帖在这里
http://expert.csdn.net/Expert/TopicView1.asp?id=2053409

[blueshrimp]

挣点分不容易啊

[iamycfwsy]

那当然啊，想不劳而获啊

[李_军]

NetSessionEnum win2000下面是在
netapi32.dll中
win98是在'SVRAPI.DLL'中，不过声明也不同了，给你个98下面的例子看看好了
const
MaxNetArrayItems = 512;
type
TSessionInfo50 = packed record
sesi50_cname: PChar; //remote computer name (connection id in Netware)
sesi50_username: PChar;
sesi50_key: DWORD; // used to delete session (not used in Netware)
sesi50_num_conns: Word;
sesi50_num_opens: Word; //not available in Netware
sesi50_time: DWORD;
sesi50_idle_time: DWORD; //not available in Netware
sesi50_protocol: Char;
padl: Char;
end;
TNetSessionEnum = function (const pszServer: PChar; sLevel: SmallInt;
pbBuffer: Pointer; cbBuffer: Word; var pcEntriesRead: Word;
var pcTotalAvail: Word): DWORD; stdcall;

implementation

{$R *.dfm}
procedure GetNetSessions(ComputerNames: TStrings);
var
SessionInfo: array[0..MaxNetArrayItems] of TSessionInfo50;
EntriesRead, TotalAvail: Word;
I: Integer;
Str: string;
NetSessionEnum: TNetSessionEnum;
LibHandle: THandle;
begin
ComputerNames.Clear;
LibHandle := LoadLibrary('SVRAPI');
if LibHandle <> 0 then
begin
try
@NetSessionEnum := GetProcAddress(LibHandle, 'NetSessionEnum');
if (@NetSessionEnum <> nil) then
if NetSessionEnum(nil, 50, @SessionInfo, Sizeof(SessionInfo), EntriesRead, TotalAvail) = 0 then
begin
for I := 0 to EntriesRead - 1 do
with SessionInfo[I] do
begin
SetString(Str, sesi50_cname, StrLen(sesi50_cname));
ComputerNames.Add(Str);
end;
end;
finally
FreeLibrary(LibHandle);
end;
end;
end;
//连接的计算机名存放在 ComputerNames 中，可以在 Win9x 下使用。