根据计算机名称获得ip地址

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;