如何通过程序知道有哪些计算机与自己的电脑连接

在WIN关闭时，往往计算机会提示有哪些计算机与你的电脑连接，那么如何通过程序知道

有哪些计算机与自己的电脑连接？

bbkxjy, 时间：2001-5-31 20:23:57, ID：549334

以前回答过类似的问题，这次又可以骗分了，;)

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;

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.DLL');

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 下使用。