Delphi7中快速得到本機IP地址

朋友們在用Delphi編程序的時候常常碰到需要在程序中獲取自己的IP地址的情況在以往的版本中可以通過編寫一段代碼或函數實現這一功能但有了Delphi 這個工作可以更簡化了利用控件只需一句代碼就可以非常方便地實現這一功能
　　
　　新建一Project在form中添加控件statusbar
　　
　　(Win頁)和控件IdIPWatch(Indy Misc頁)接著設置好控件屬性在statusbar的panels中添加TStatusPanel和TStatusPanel兩項IdIPWatch的HistoryEnabled的屬性設為False
　　
　　編寫代碼在TFormFormCreate(Sender: TObject)中加入以下代碼
　　
　　statusbarPanels[]Text:=IdIPWatchLocalIP;
　　
　　OK！按下F功能鍵運行程序看一下窗口下邊狀態欄中是不是已經顯示了本機的IP地址了？
　　
　　提示若IdIPWatch的HistoryEnabled的屬性設為True則會在程序退出時自動生成一個文件(文件名為HistoryFileName屬性設定的值)記錄當前的IP地址
From:http://tw.wingwit.com/Article/program/Delphi/201311/24694.html