朋友們在用Delphi編程序的時候，常常碰到需要在程序中獲取自己的IP地址的情況。在以往的版本中，可以通過編寫一段代碼或函數實現這一功能。但有了Delphi 7，這個工作可以更簡化了。利用控件只需一句代碼，就可以非常方便地實現這一功能。
新建一Project1，在form1中添加控件statusbar
1(Win32頁)和控件IdIPWatch1(Indy Misc頁)。接著設置好控件屬性：在statusbar1的panels中添加0-TStatusPanel和1-TStatusPanel兩項；IdIPWatch1的HistoryEnabled的屬性設為False。
編寫代碼：在TForm1.FormCreate(Sender: TObject)中加入以下代碼：
statusbar1.Panels[1].Text:=IdIPWatch1.LocalIP;
OK！按下F9功能鍵，運行程序，看一下窗口下邊狀態欄中是不是已經顯示了本機的IP地址了？
提示：若IdIPWatch1的HistoryEnabled的屬性設為True，則會在程序退出時，自動生成一個文件(文件名為HistoryFileName屬性設定的值)，記錄當前的IP地址。
