Delphi-Help

uses

  ..., WinSock;

procedure TForm1.Button1Click(Sender: TObject);

type

  InAddr = Array[0..10] of PInAddr;

  TInAddr = ^InAddr;

var

  Host: PHostEnt;

  pPtr: TInAddr;

  Buffer: Array[0..63] of char;

  i: Integer;

  Socket: TWSAData;

begin

   ListBox1.Clear;

   WSAStartup( $101, Socket );

   GetHostName( Buffer, SizeOf( Buffer ) );

   Host := GetHostByName( buffer );

   if Host = nil then Exit;

   pPtr := TInAddr( Host^.h_addr_list );

   i := 0;

   while pPtr^[i] <> nil do

   begin

      ListBox1.Items.Add( inet_ntoa( pPtr^[i]^ ) );

      Inc( i );

   end;

   WSACleanup;

end;