var
WSAData:TWSAData;
HostEnt:PHostEnt;
cIP:string;
begin
WSAStartup(2,WSAData);
HostEnt:=gethostbyname(PChar(edit1.text));
if HostEnt<>nil then
begin
with HostEnt^do
cIP:=Format('%d.%d.%d.%d',[Byte(h_addr^[0]),Byte(h_addr^[1]),Byte(h_addr^[2]),Byte(h_addr^[3])]);
end;
WSACleanup;
Memo1.text:=edit1.text+'的IP是'+cIP;
end;