标签：
uses IdIPWatch;
function GetNativeIP: String;
var
IdIPWatch: TIdIPWatch;
begin
IdIPWatch := TIdIPWatch.Create(nil);
try
Result := IdIPWatch.LocalIP;
finally
IdIPWatch.Free;
end;
end;
DelphiXE7下编写。
标签：
原文地址：http://blog.csdn.net/dbyoung/article/details/44243921
