const
WINSOCK_VERSION = $0101;
var
WSAData : TWSAData;
p : PHostEnt;
begin
WSAStartup(WINSOCK_VERSION, WSAData);
p := GetHostByName(PChar(Edit1.Text));
Edit2.Text := inet_ntoa(PInAddr(p.h_addr_list^)^);
WSACleanup;
end;
Где Edit1.Text = Имя машины в сети, а Edit2.Text ее IP
|