Aktive bde Benutzer im Netzwerk

[Gast]

Hi,

Delphi F1:

Code:

  fDbiOpenUserList(ListBox1.Items);

The procedure is:

procedure fDbiOpenUserList(UserList: TStrings);

var
  TmpCursor: hDbiCur;
  rslt: dbiResult;
  UsrDesc: USERDesc;
begin
  Check(DbiOpenUserList(TmpCursor));
  repeat
    rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @UsrDesc, nil);
    if (rslt <> DBIERR_EOF) then begin
      UserList.Add('User name: ' + UsrDesc.szUserName);
      UserList.Add('Net Session: ' + IntToStr(UsrDesc.iNetSession));
      UserList.Add('Product Class: ' + IntToStr (UsrDesc.iProductClass));

    end;
  until (rslt <> DBIERR_NONE);
  Check(DbiCloseCursor(TmpCursor));
end;

Gruß

Paul Jr.