摘要： Hi Hendra ... this code does what you ask for ... I found it in this forum :var I: Integer; ASessionList: TList;begin unimemo1.Lines.Clear; ASessionList := UniServerModule.SessionManager.Sessions.SessionList.LockList; try for I := 0 to ASessionList.Count - 1 do begin UniMemo1.Lines.Add(TUniGUISessio 阅读全文