吐血求救 ，2000中如何使用 NetSessionEnum 函数来取得 当前访问 本机的网络用户的信息？

Question

含 访问者机器名或者用户名，访问时间，等注：不要给什么98下的代码了，试了几天把原来98下的代码改过来都不行，且需要是2000下的源码，谢谢了我开两个100百分帖来未助，谢谢了

Answer 1

http://www.delphi-jedi.org/Jedi:APILIBRARY:600161#windows
去下载LanManager.zip
里面给出了NetSessionEnum

Answer 2

NetSessionEnum win2000下面是在
netapi32.dll中
win98是在'SVRAPI.DLL'中，不过声明也不同了，给你个98下面的例子看看好了
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;implementation{$R *.dfm}
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');
  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 下使用。

Answer 3

这根本就是98下的TNetSessionEnum = function (const pszServer: PChar; sLevel: SmallInt;
    pbBuffer: Pointer; cbBuffer: Word; var pcEntriesRead: Word;
      var pcTotalAvail: Word): DWORD; stdcall;
LibHandle := LoadLibrary('SVRAPI');

Answer 4

发帖的时候已经说过不要98的例程了，你们太懒了，我太笨了后来我在msdn中找到了2000的例程，我本来做也错在类例的问题上，虽然你们都很辛苦了，但都不符合条件，沉下去，不给分了