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




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