Delphi-Help

procedure BDEGetPDXUserList(AList: TStrings);

var

  hCur: hDBICur;

  UDesc: USERDesc;

begin

  AList.Clear;

  Check(DBIOpenUserList(hCur));

  try

    while DBIGetNextRecord(hCur, dbiNOLOCK, @UDesc, nil) <> DBIERR_EOF do

    begin

      AList.Add(StrPas(UDesc.szUserName));

    end;

  finally

    DBICloseCursor(hCur);

  end;

end;