zoukankan      html  css  js  c++  java
  • 如何通过程序知道有哪些计算机与自己的电脑连接

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

  • 相关阅读:
    自我介绍篇
    iOS支付宝集成时遇到的问题整理(2)
    iOS支付宝集成时遇到的问题整理(1)
    注册登录时本地图片验证码
    集成ZBar时容易遇到的问题以及解决方法
    iOS解析数据时Error=3840
    iOS开发中的一些定时器
    二维码扫描利用ZBar实现
    去除UITableView中多余的分割线或者隐藏cell间的分割线
    iOS 中二维码扫描
  • 原文地址:https://www.cnblogs.com/chenhs/p/1286492.html
Copyright © 2011-2022 走看看