以下的函數可以取得網路上的使用者名單
----------------------------------------------------------------------
procedure GetNetFileUsers(AList: TStringList);
var UserCur: hDBICur;
pUserDes: pUserDesc;
begin
Check(DBIOpenUserList(UserCur));
GetMem(pUserDes, sizeof(UserDesc));
try
FillChar(pUserDes^, sizeof(UserDesc), #0);
while (DbiGetNextRecord(UserCur,0,pUserDes,nil) = DBIERR_NONE) do
AList.Add(StrPas(pUserDes^.szUserName));
finally
FreeMem(pUserDes, sizeof(UserDesc));
DBICloseCursor(UserCur);
end;
end;
---------------------------------------------------------------------
               (
geocities.com/huanlin_tsai)