[infopol]

Нашел такой пример

Код:

1 2 3 4 5 6

WTS = Новый COMОбъект("WTSManager.Shell") Сообщить "My computer name: " + WTS.MyClientName + " " + "My IP address: " + WTS.MyIPAddress Сессия = "Total sessions: " & WTS.ClientCount Для каждого i = 1 из WTS.ClientCount Цикл S = S + Chr(13) + WTS.Clients(i).WinStationName + " User: " + WTS.Clients(i).UserName + " IP: " + WTS.Clients(i).IPAddress КонецЦикла

Как это реализовать в Delphi?

[infopol]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

Код:   function Get_TerminalSesion(var IpAdr:String) :boolean; Var   WTS_CLIENT_ADDRESS :TWTS_CLIENT_ADDRESS ;   PWTS_CLIENT_ADDRESS:^TWTS_CLIENT_ADDRESS;   BufSize: DWORD; i:Integer;   buf:Byte;   pSessionId: DWORD;   Res:string;   PAddres:^Address; //IPAdr:String;     begin  Res:= ( StringOfChar(Chr(0),4));  BufSize:= Integer( Addr(Res)^);  result:=false;    ProcessIdToSessionId(GetCurrentProcessId, pSessionId);   if WTSQuerySessionInformationA(WTS_CURRENT_SERVER_HANDLE,pSessionId,WTSClientAddress,Pointer(PWTS_CLIENT_ADDRESS ),BufSize) then   try                    WTS_CLIENT_ADDRESS:=PWTS_CLIENT_ADDRESS^;                IpAdr:='';       for i:=2 to 5 do            IPAdr:=IpAdr+ IntToStr(  WTS_CLIENT_ADDRESS.IPAddress[i])+'.';             //     IntToStr(WTS_CLIENT_ADDRESS.AddressFamily) //    ShowMessage(' > '+ IntToStr(WTS_CLIENT_ADDRESS.AddressFamily)+'; IP '+IpAdr);//IntToStr(  WTS_CLIENT_ADDRESS.IPAddress[6])+'.'+IntToStr(WTS_CLIENT_ADDRESS.IPAddress[7])+'.'+IntToStr(  WTS_CLIENT_ADDRESS.IPAddress[8])+'.'+IntToStr(  WTS_CLIENT_ADDRESS.IPAddress[9]));    Result:=(WTS_CLIENT_ADDRESS.AddressFamily=2);   finally     System.FreeMemory(PWTS_CLIENT_ADDRESS);     WTSFreeMemory(PWTS_CLIENT_ADDRESS);   //  WTSFreeMemory(@ppBuffer);   end; end;   Код:   function Get_ClientName :String; var   BufSize: Cardinal;   pBuf: PAnsiChar;   pSessionId: DWord; const   WTS_CURRENT_HANDLE=0;     begin   //pSessionId:=1;   ProcessIdToSessionId(GetCurrentProcessId, pSessionId); //  pSessionId:=-1;   // èëè pSessionId := DWORD(-1);   if WTSQuerySessionInformationA(WTS_CURRENT_HANDLE, pSessionId,     WTSClientName, Pointer(pBuf), BufSize) then   try     SetString(Result, pBuf, BufSize);    // ShowMessage(Result+' '+GettingComputerName+' '+ GetLocalName);   finally     WTSFreeMemory(pBuf);   end; end;