Код:

function NetSessionEnum (SrverName:PChar;sLevel:dword;
 * * * *pbBuffer:pointer;cbBuffer:dword;Read,
 * * * *TotalAvial:pointer):integer; stdcall;
 * * * *external 'svrapi.dll';

type
 * *session_info_50 = record
 * * * *ses50_cname : PChar;
 * * * *ses50_username : PChar;
 * * * *ses50_key : LongInt;
 * * * *ses50_num_conns : short;
 * * * *ses50_num_opens : short;
 * * * *ses50_time : LongInt;
 * * * *ses50_idle_time : LongInt;
 * * * *ses50_protocol : char;
 * * * *pad1 : char;
end;
........
var
 SessionInfo: array [0..512] of session_info_50;
 read,TotalAvial: Word;
 i:integer;
begin
 NetSessionEnum (nil,50,@SessionInfo,SizeOf(SessionInfo),@Read,@TotalAvial);
 for i:=0 to Read-1 do
 * with SessionInfo[[i]] do
 * begin
 * ListBox.Items.Add(ses50_username);
 * * {здесь можешь узнать о каждом подключении...}
 * end;
end;