Function GetLocalIP: string; var
wsaData: TWSAData;
P : PHostEnt;
S : array [0..128] of char; begin
WSAStartup(MAKEWORD(1,1), wsaData);
GetHostName(@s, 128);
P:= GetHostByName(@s);
Result:= iNet_ntoa(PInAddr(p^.h_addr_list^)^);
WSACleanup; end;
Название: Get ALL Ip Дата публикации: 2004-01-29 (2975 Прочтено)