uses
WinSock;
function
GetLocalIP: String
; const
WSVer = $101; var
wsaData: TWSAData;
P: PHostEnt;
Buf: array
[0..127] of
Char; begin
Result := '';
if
WSAStartup(WSVer, wsaData) = 0 then
begin
if
GetHostName(@Buf, 128) = 0 then
begin
P := GetHostByName(@Buf); if
P <> nil
then
Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^); end
; WSACleanup; end
;
end
;