{
+-----------------------------------------------------+
|    YangZhenhua  2004.11.29 16:45  ZhuHai.GuangDong  |
+-----------------------------------------------------+

自定義常用函數庫
======================Example===================================================
uses
  FunLib;
================================================================================
}

unit FunLib;

interface

uses
  IdIPWatch;
  function GetLocalIP():String;
implementation

//獲取本機IP地址
function GetLocalIP():String;
var
  IdIPWatch : TIdIPWatch;
begin
  IdIPWatch := TIdIPWatch.Create(nil);
  IdIPWatch.HistoryEnabled := False;
  result := IdIPWatch.LocalIP;
  IdIPWatch.Free;
end;

end.