Возникла, элементарная с виду задача, получить в программе IP адрес компьютера, на котором запущена программа.
Взял старый код, который работал когда-то давно на ХР. Но на 10-ке ничего не выдает.
Код: Выделить всё
GetIpAddress FUNCTION ( )
DATA
InetAddr ulong
LocalHost cstring(100)
LocalIP cstring(15)
CODE
LocalIP=''
IF ~GetHostName(LocalHost,100)
InetAddr=GetHostByName(LocalHost)
if InetAddr
peek(InetAddr+12,InetAddr)
peek(InetAddr,InetAddr)
peek(InetAddr,InetAddr)
peek(Inet_NToA(InetAddr),LocalIP)
end
END
Return(LocalIP)
Спасибо