在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地址。