如何使用Winsock API在网内通过IP得到主机名

uses winsock 
  ------- 
  function IPAddrToName(IPAddr : String): String; 
  var 
    SockAddrIn: TSockAddrIn; 
    HostEnt: PHostEnt; 
    WSAData: TWSAData; 
  begin 
    WSAStartup($101, WSAData); 
    SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr)); 
    HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET); 
    if HostEnt<>nil then 
    begin 
      result:=StrPas(Hostent^.h_name) 
    end 
    else 
    begin 
      result:=''; 
    end; 
  end; 
  
  //示例: 
  
  procedure TForm1.Button1Click(Sender: TObject); 
  begin 
  Label1.Caption:=IPAddrToName(Edit1.Text); 
  end;