Список пользователей

unit Unit2;
 
interface
uses Windows;
 
const
  //  Specifies the current server
  WTS_CURRENT_SERVER_HANDLE = THandle(0);
 
const
  // WTS_EVENT - Event flags for WTSWaitSystemEvent
  WTS_EVENT_NONE        = $00000000; // return no event
  WTS_EVENT_CREATE      = $00000001; // new WinStation created
  WTS_EVENT_DELETE      = $00000002; // existing WinStation deleted
  WTS_EVENT_RENAME      = $00000004; // existing WinStation renamed
  WTS_EVENT_CONNECT     = $00000008; // WinStation connect to client
  WTS_EVENT_DISCONNECT  = $00000010; // WinStation logged on without client
  WTS_EVENT_LOGON       = $00000020; // user logged on to existing WinStation
  WTS_EVENT_LOGOFF      = $00000040; // user logged off from existing WinStation
  WTS_EVENT_STATECHANGE = $00000080; // WinStation state change
  WTS_EVENT_LICENSE     = $00000100; // license state change
  WTS_EVENT_ALL         = $7fffffff; // wait for all event types
  WTS_EVENT_FLUSH       = DWORD($80000000); // unblock all waiters
 
type
  //WTS_CONNECTSTATE_CLASS - Session connect state
  WTS_CONNECTSTATE_CLASS = (
    WTSActive,              // User logged on to WinStation
    WTSConnected,           // WinStation connected to client
    WTSConnectQuery,        // In the process of connecting to client
    WTSShadow,              // Shadowing another WinStation
    WTSDisconnected,        // WinStation logged on without client
    WTSIdle,                // Waiting for client to connect
    WTSListen,              // WinStation is listening for connection
    WTSReset,               // WinStation is being reset
    WTSDown,                // WinStation is down due to error
    WTSInit);               // WinStation in initialization
 
 
  PWTS_SESSION_INFO = ^WTS_SESSION_INFO;
  WTS_SESSION_INFO = record
    SessionId: DWORD;              // session id
    pWinStationName: LPSTR;        // name of WinStation this session is connected to
    State: WTS_CONNECTSTATE_CLASS; // connection state (see enum)
  end;
 
  WTS_INFO_CLASS = (
    WTSInitialProgram,
    WTSApplicationName,
    WTSWorkingDirectory,
    WTSOEMId,
    WTSSessionId,
    WTSUserName,
    WTSWinStationName,
    WTSDomainName,
    WTSConnectState,
    WTSClientBuildNumber,
    WTSClientName,
    WTSClientDirectory,
    WTSClientProductId,
    WTSClientHardwareId,
    WTSClientAddress, //Returns pointer to a WTS_CLIENT_ADDRESS - structure
    WTSClientDisplay,
    WTSClientProtocolType);
 
 
 
const
  AF_INET      = 2; // internetwork: UDP, TCP, etc.
  AF_NS        = 6; // XEROX NS protocols
  AF_IPX       = AF_NS; // IPX protocols: IPX, SPX, etc.
  AF_NETBIOS   = 17; // NetBios-style addresses
  AF_UNSPEC    = 0; // unspecified     
 
  function WTSWaitSystemEvent(hServer: THandle;
                              EventMask: DWORD;
                              var pEventFlags: DWORD): BOOL; stdcall;
 
  function WTSEnumerateSessions(hServer: THandle;
                                Reserved: DWORD;
                                Version: DWORD;
                                var ppSessionInfo: PWTS_SESSION_INFO;
                                var pCount: DWORD): BOOL; stdcall;
 
   function WTSQuerySessionInformation(hServer: THandle;
                                       SessionId: DWORD;
                                       WTSInfoClass: WTS_INFO_CLASS;
                                       var ppBuffer: LPSTR;
                                       var pBytesReturned: DWORD): BOOL; stdcall;
 
   procedure WTSFreeMemory(pMemory: pointer); stdcall;
 
IMPLEMENTATION
 
const
   wtsapi = 'wtsapi32.dll';
 
function WTSEnumerateSessions; external wtsapi name 'WTSEnumerateSessionsA';
function WTSWaitSystemEvent; external wtsapi name 'WTSWaitSystemEvent';
function WTSQuerySessionInformation; external wtsapi name 'WTSQuerySessionInformationA';
procedure WTSFreeMemory; external wtsapi name 'WTSFreeMemory';
 
END.

unit Unit3;
 
interface
  uses Unit2, Classes, Windows, SysUtils;
type
  PWTSSessionInfoAArray = ^TWTSSessionInfoAArray;
  TWTSSessionInfoAArray = array[0..0] of WTS_SESSION_INFO;
 
  function CheckWTSSessions() : TStringList;
 
IMPLEMENTATION
  function CheckWTSSessions() : TStringList;
var
   pArrSessInfo      : PWTSSessionInfoAArray;
   iNumSess          : DWORD;
   i                 : integer;
   pBuf              : pointer;
   iBufSize          : DWORD;
   userName          : LPTSTR;
   return            : TStringList;
begin
  return := TStringList.Create;
   if WTSEnumerateSessions(WTS_CURRENT_SERVER_HANDLE,
                           0,1,
                           PWTS_SESSION_INFO(pArrSessInfo), iNumSess) then
   try
      for i:=0 to iNumSess-1 do
      begin
         if pArrSessInfo^[i].State <> WTSActive then continue;
         if WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE,
                                       pArrSessInfo^[i].SessionId,
                                       WTSUserName,
                                       UserName, iBufSize) then
         begin
            try
              Result.Add(UserName);
            finally
               WTSFreeMemory(UserName);
            end;
         end; //if WTSQuerySessionInformation
      end //for i
   finally
      WTSFreeMemory(pArrSessInfo);
      Result := return;
   end; //if WTSWaitSystemEvent
end;