Function localip: string;
Type tapinaddr = array [0..10] of pinaddr;
Papinaddr = ^ TapinAddr;
Var Phe: phostent;
Pptr: papinaddr;
Buffer: array [0..63] of char;
I: integer;
GinitData: TWSADATA;
Begin
WSAStartup ($ 101, ginitdata);
Result: = '';
GethostName (Buffer, Sizeof (Buffer);
Phe: = gethostByname (buffer);
IF PHE = NIL THEN EXIT;
PPTR: = papinaddr (Phe ^ .h_addr_list);
I: = 0;
While pptr ^ [i] <> nil do
Begin
Result: = SYSUTILS.STRPAS (inet_ntoa (pptr ^ [i] ^);
INC (I);
END;
WSACLEANUP;
END;