Delphi 7中快速擷取本機IP地址

朋友們在用Delphi編程式的時候，常常碰到需要在程式中擷取自己的IP地址的情況。在以往的版本中，可以通過編寫一段代碼或函數實現這一功能。但有了Delphi 7，這個工作可以更簡化了。利用控制項只需一句代碼，就可以非常方便地實現這一功能。

建立一Project1，在form1中添加控制項statusbar1(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地址。