明辉手游网中心:是一个免费提供流行视频软件教程、在线学习分享的学习平台!

怎么知道有哪一些计算机与自己的电脑连接

[摘要]const MaxNetArrayItems = 512; type TSessionInfo50 = packed record sesi50_cname: PChar; ...
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 下使用。