在Delphi6以上的版本中，有一个IdIPWatch控件，它的功能就是检测网络在线状态和获取

IP地址。而在以前的Delphi版本中却要采取另一种方法来获取IP，就是利用winsock单元的

一些网络函数的办法，这里不多说了，我们选择容易的。

　　新建一工程，在form1中添加控件edit1和button1,IdIPWatch1
    　　IdIPWatch1在indy misc标签下(上面有IP的字样的就是的)

　　编写代码：
     procedure TForm1.Button1Click(Sender: TObject);
      begin
         edit1.Text:=IdIPWatch1.LocalIP; 
       end;

　　OK！按下F9功能键，运行程序，点击button看一下edit1中是不是已经显示了本机的IP

地址了。

　　提示：若IdIPWatch1的HistoryEnabled的属性设为True，则会在程序退出时，自动生成一个文件(文件名为HistoryFileName属性设定的值)，记录当前的IP地址。