Fórum Descobrir IP #340827

  function GetIPAddress(NetworkName: string): string;
  var
   Error: DWORD;
   HostEntry: PHostEnt;
   Data: WSAData;
   Address: In_Addr;
  begin
   Error:=WSAStartup(MakeWord(1, 1), Data);
   if Error = 0 then begin
    HostEntry:=gethostbyname(PChar(NetworkName));
    Error:=GetLastError();
    if Error = 0 then begin
     Address:=PInAddr(HostEntry^.h_addr_list^)^;
     Result:=inet_ntoa(Address);
    end else begin
     Result:=´Unknown´;
    end;
   end else begin
    Result:=´Error´;
   end;
   WSACleanup();
  end;