[Ross]

Как можно определить IP-адрес машины. Например, комп выходит в сеть и нужно, чтоб высвечивался ip-адрес машины.

[Pavel]

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

[Ross]

ООООгромное спасибо!!!

[Надин]

Народ!
А какие библиотеки для этого нужно подключать?

[Ferra]

Winsock.pas . В uses просто прописать "Winsock"

[Ross]

гы, вроде да.