Mostrar mi IP en una ventana DELPHI.

[JUANRS]

Hola a tod@s, haciendo una aplicación en delphi, me ha surgido una idea y a la vez la duda como hacerla, os comento:
Me gustaría crear una ventanita donde en un edit (por ejemplo) me saliera el número de IP de mi máquina local, en caso de que esté en un dominio, pues la IP que tenga mi máquina dentro de ese dominio, o en su caso de una red local.Ya os digo que lo que quiero es que salga la IP de mi máquina, aquella que podemos obtener con un IPCONFIG desde el ms-dos, pero no se si desde DELPHI podemos obtenerla y mostrarla, es mi duda.
Si a alguien se le ocurre o sabe como va, pues me ayudaria bastante. Gracias-

[marcoszorrilla]

Yo utilizo esta función:


function IPLocal: String;
var
p: PHostEnt;
s: array[0..128] of char;
p2: pchar;
wVersionRequested: WORD;
wsaData: TWSAData;
begin
// Arranca la librería WinSock
wVersionRequested := MAKEWORD( 1, 1 );
WSAStartup( wVersionRequested, wsaData );

// Obtiene el nombre del PC
GetHostName( @s, 128 );
p := GetHostByName( @s );

// Obtiene la dirección IP y libera la librería WinSock
p2 := iNet_ntoa( PInAddr( p^.h_addr_list^ )^ );
Result := Result + p2;
WSACleanup;
end;


Un Saludo.

[JUANRS]

Perfecto, muchas gracias, funciona a la perfección.
Solo hace falta además añadir : Uses Winsock