redone getlocalips fix more neatly

git-svn-id: file:///svnroot/lcore/trunk@109 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/lcorelocalips.pas b/lcorelocalips.pas
index dcc633a1a9a89ff8f2e6fedc38e5543bdae9f362..aafddf727547739fa7b63312ee5c82f896c07816 100644 (file)
--- a/lcorelocalips.pas
+++ b/lcorelocalips.pas
@@ -188,7 +188,7 @@ end;
 {$else}\r
 \r
 uses\r
-  sysutils,windows,winsock,dnssync,dnscore;\r
+  sysutils,windows,winsock,dnswin;\r
 \r
 {the following code's purpose is to determine what IP windows would come from, to reach an IP\r
 it can be abused to find if there's any global v6 IPs on a local interface}\r
@@ -256,13 +256,9 @@ var
   a:integer;\r
   ip:tbinip;\r
   usewindnstemp:boolean;\r
+  error:integer;\r
 begin\r
-  {this lookup must always be done with the windows API lookup\r
-  setting usewindns to false on windows will fail with infinite recursion}\r
-  usewindnstemp := usewindns;\r
-  usewindns := true;\r
-  result := forwardlookuplist('',0);\r
-  usewindns := usewindnstemp;\r
+  result := winforwardlookuplist('',0,error);\r
 \r
   {$ifdef ipv6}\r
 \r