Delphi - база знаний

       

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


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



With Paradox:

procedureBDEGetPDXUserList(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;



Взято с

Delphi Knowledge Base




Содержание раздела