Delphi e IP

[olbeup]

También esto otro:

Código Delphi [-]
function GetIPComputer: String;
var
  wVersionRequested: Word;
  wsaData: TWSAData;
  pHostName: PHostEnt;
  sComputerName: Array[0..128] of Char;
  pIPComputer: PChar;
begin
  {Iniciar el WinSock}
  wVersionRequested := MakeWord(1, 1);
  WSAStartup(wVersionRequested, wsaData);

  {Obtener el nombre del ordenador}
  gethostname(@sComputerName, 128);
  pHostName := gethostbyname(@sComputerName);

  {Obtener la dirección IP}
  pIPComputer := inet_ntoa(PInAddr(pHostName^.h_addr_list^)^);
  Result := pIPComputer;

  {Cerrar el WinSock}
  WSACleanup;
end;

Un saludo.