uses IdIPWatch;
function GetNativeIP: String;
var
IdIPWatch: TIdIPWatch;
begin
IdIPWatch := TIdIPWatch.Create(nil);
try
Result := IdIPWatch.LocalIP;
finally
IdIPWatch.Free;
end;
end;
DelphiXE7下编写。
原文：http://www.cnblogs.com/bhlsheji/p/5265246.html