获取那个任务管理器中最后一页的用户栏的用户信息

Question

急求:用Delphi怎么去获取那个任务管理器中最后一页的用户栏的用户信息?因为我一台主机有好多用户TS(远程桌面连接)进来,我要取得这些连进来的用户名,也就是上面那个任务管理器中最后一页的用户栏里的信息,当然不光是用户名，还有后面的什么状态、客户端名、会话都要,我要的不是那个进程里的User。望各位大虾提供完整解决方案。3Q....

Answer 1

先枚举得到SessionID
WTSEnumerateSessions(WTS_CURRENT_SERVER, 0, 1, pSessionInfo, CountSessions);
再根据ID得到登录名
WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE, SessionID, WTSUserName, buf, i)
case State of
          WTSActive: nomenodo := '活动的';
          WTSListen: NomeNodo := 'RDP-Tcp';
          WTSIdle: NomeNodo := 'Idle';
          WTSShadow: NomeNodo := pWinStationName + ' shadow';
          WTSDown: NomeNodo := 'Down';
          WTSInit: NomeNodo := 'Init';
          WTSReset: NomeNodo := 'Reset';
          WTSConnectQuery: NomeNodo := 'ConnectQuery';
          WTSDisconnected: NomeNodo := '已断开';
        end;
完整代码留下EMAIL我发给你.