Форум по Delphi программированию - Показать сообщение отдельно - Как определить имя компьютера и IP адрес подключенного через RDP ?

infopol · #1 12.10.2023, 09:57

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

Код:

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?