Delphi e IP

[beteta]

bueno señores les traigo la siguiente duda espero que me ayuden

Quisiera saber el codigo para saber la ip de la maquina donde estoy y que el
resultado me lo muestre en un label el programa solo eso haria

salludos

[ecfisa]

Hola beteta.

[ My IP with Delphi (http://delphi.about.com/od/networking/l/aa103100a.htm) ]

Saludos.

[olbeup]

También esto otro:
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.