Как сделать список всех пользователей 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/