Delphi-Help

Главная Статьи BDE Как сделать список всех пользователей BDE?

Как сделать список всех пользователей BDE?

Оцените материал
(0 голосов)


Как сделать список всех пользователей BDE?

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;
Прочитано 4785 раз

Авторизация



Счетчики