Гляделка сетевых подключений

[Nik]

Как вообще можно написать прогу чтобы она показывала всех подключившихся к сети(типа NetWatherPro)

Добавлено:

И чтобы пахал под Win2k

[vasketsov]

Nik
NetSessionEnum

[Igo]

vasketsov
ты сам пробовал использовать NetSessionEnum?

[vasketsov]

Igo
на этот странный вопрос я отвечу ссылкой на свой сайт, там внизу слева есть ссылка на софт, вот TaskEx не только это делает. Закладки обозваны недвусмысленно, так что милости прошу, по конкретной инфе уже и общаться будем. А не то что пробовал или нет.

[Igo]

vasketsov

видишь ли, я не могу знать кто какие программы написал, и поинтересовался, пользовался ли ты этой функцией.
раз пользовался, то возможно знаешь в чем проблема, а то до смешного уже дошло:-)
сбрасываю код:

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;
все просто "до немогу"...
так вот, при подключении 2-ух компов read = 2, но в SessionInfo лежит информация только об одном подключении и на втором проходе цикла ListBox.Items.Add(ses50_username) грязно ругается...
подскажи в чем дело?