如何获取局域网中指定计算机名的IP地址

Question

如题

Answer 1

function LookupName(const Name: string): string;
var
  HostEnt: PHostEnt;begin
  HostEnt := gethostbyname(PChar(Name));
  if HostEnt <> nil then
  begin    with HostEnt^ do
    begin
      Result:=Format('%d.%d.%d.%d', [Ord(h_addr^[0]), Ord(h_addr^[1]),Ord( h_addr^[2]), Ord(h_addr^[3])]);
    end;
  end;end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:=LookupName('zhh');
end;