Как сделать список всех пользователей BDE? |
Previous Top Next |
With Paradox:
Code: |
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; |
©Drkb::02526
Взято с Delphi Knowledge Base: http://www.baltsoft.com/