程序部署在一台XP虚拟机中，通过Windows终端连接到这台XP虚拟机使用，现在程序需要知道是从哪个IP连接到这台虚拟机的，请各位高手帮忙。

[kingbenz]

程序部署在一台XP虚拟机中，通过Windows终端连接到这台XP虚拟机使用，现在程序需要知道是从哪个IP连接到这台虚拟机的，请各位高手帮忙。

[bcrun]

不清楚系统是否事有直接查询这些信息的API,不过如实在不行的话,编程找到正在运行的
C:\WINDOWS\System32\svchost.exe -k termsvcs
服务,然后查询连接到它的ms-wbt-server协议的TCP端口(端口号好像是3389),看有哪些IP就可以了吧

[kingbenz]

问题解决：
function GetClientIP: String;
var
i: DWORD;
buf: PWTSClientAddress;
j: integer;
str: string;
begin
if WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE, WTS_CURRENT_SESSION, WTSClientAddress, pointer(buf), i) then
if buf.AddressFamily <> AF_UNSPEC then
begin
for j := 2 to 5 do
str := str + IntToStr(buf.AddRess[j]) + '.';
Result := Copy(str, 1, Length(str) - 1);
end
else
Result := '127.0.0.1';
end;