Как сделать список всех пользователей BDE?
Falk0ner, вс, 06/07/2008 - 15:34.
With Paradox:
procedure BDEGetPDXUserList(AList: TStrings);
var
hCur: hDBICur;
UDesc: USERDesc;
begin
AList.Clear;
Check(DBIOpenUserList(hCur));
try
while DBIGetRecord(hCur, dbiNOLOCK, @UDesc, nil) <> DBIERR_EOF do
begin
AList.Add(StrPas(UDesc.szUserName));
end;
finally
DBICloseCursor(hCur);
end;
end;
var
hCur: hDBICur;
UDesc: USERDesc;
begin
AList.Clear;
Check(DBIOpenUserList(hCur));
try
while DBIGetRecord(hCur, dbiNOLOCK, @UDesc, nil) <> DBIERR_EOF do
begin
AList.Add(StrPas(UDesc.szUserName));
end;
finally
DBICloseCursor(hCur);
end;
end;
Взято с Delphi Knowledge Base: http://www.baltsoft.com/
Отправить комментарий