从DNS获取IP地址而不使用GetHostByName

Question

我正在使用GetHostByName从主机/ DNS获取IP地址。我也有卡巴斯基互联网安全2013，并注意到GetHostByName被它挑选。似乎我的进程试图在hklm\SYSTEM\CONTROLSET001\SERVICES\TCPIP\PARAMETERS中创建一个子键。这实际上意味着，如果用户没有任何管理员权限，我就不能使用此功能。有没有其他方法可以解析主机/ DNS？

编辑：这是截图：

EDIT2： 我实际上使用了getaddrinfo，KIS没有“检测到任何东西”。我想使用它，但我仍然希望得到Win2K的支持。

EDIT3：添加了Debug ScreenShot

EDIT4：那是我的“测试”代码：

program Project2;

{$APPTYPE CONSOLE}

uses
  Winsock;

var
    DummyWSA : WSADATA;

begin
  if WSAStartup($0202, DummyWSA) = 0 then begin
    GetHostByName ('localhost');
  end;
  readln;
end.

EDIT5：GetAddrInfo版本......

program Project2;

{$APPTYPE CONSOLE}

uses
  Winsock;

type
  PAddrInfo = ^TAddrInfo;
  TAddrInfo = packed record
    ai_flags: Integer;
    ai_family: Integer;
    ai_socktype: Integer;
    ai_protocol: Integer;
    ai_addrlen: LongWord;
    ai_canonname: Array of Char;
    ai_addr: PSOCKADDR;
    ai_next: PAddrInfo;
  end;

function getaddrinfo(const nodename: PChar; const servname : PChar; const hints: PAddrInfo; var res: PAddrInfo): Integer; stdcall; external 'ws2_32.dll' name 'getaddrinfo';
procedure freeaddrinfo(ai: PAddrInfo); stdcall; external 'ws2_32.dll' name 'freeaddrinfo';

var
  DummyWSA      : WSADATA;
  SocketHint    : PAddrInfo;
  SocketResult  : PAddrInfo;

begin
  if WSAStartup($0202, DummyWSA) = 0 then begin
    //GetHostByName ('localhost');
    getaddrinfo ('localhost', '80', SocketHint, SocketResult);
    // getaddrinfo ('localhost', NIL, SocketHint, SocketResult); // Not sure if I can NIL the port...
  end;
  readln;
end.

这个版本似乎根本没有向注册表写任何东西......

Answer 1

gethostbyname()是通过DNS查询主机名的正确方法（getaddrinfo()是更好的选择，特别是如果您需要支持IPv6），并且它绝对不仅限于管理员。许多应用程序使用gethostbyname()（和/或getaddrinfo()），因此卡巴斯基不太可能阻止它。

为什么您认为gethostbyname()正在创建注册表项？究竟是在创造什么？它不应该创造任何东西。这可能表明某些外部代码已连接到gethostbyname()。