以下的函數可以取得網路上的使用者名單
----------------------------------------------------------------------
procedure GetNetFileUsers(AList: TStringList);
var UserCur: hDBICur;
    pUserDes: pUserDesc;
begin
  Check(DBIOpenUserList(UserCur));
  GetMem(pUserDes, sizeof(UserDesc));
  try
    FillChar(pUserDes^, sizeof(UserDesc), #0);
    while (DbiGetNextRecord(UserCur,0,pUserDes,nil) = DBIERR_NONE) do
      AList.Add(StrPas(pUserDes^.szUserName));
  finally
    FreeMem(pUserDes, sizeof(UserDesc));
    DBICloseCursor(UserCur);
  end;
end;
---------------------------------------------------------------------