朋友們在用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地址。

var
  IdIPWatch1: TIdIPWatch;

  s:String;

  IdIPWatch1 := TIdIPWatch.Create();
  s:= IdIPWatch1.LocalIP;
  IdIPWatch1.Free;