Delphi中快速得到本機IP地址

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