Hola Rc96
yo utilizo la siguiente funciónes para saber la IP del equipo y el nombre del equipo
Código Delphi
[-]
uses
Types, Winapi.Windows, Winsock;
function GetComputerName: string;
var
buffer: array[0..255] of char;
size: dword;
begin
size := 256;
if Winapi.Windows.GetComputerName(buffer, size) then
Result := buffer
else
Result := ''
end;
function GetIPSystem: string;
var
wVersionRequested: WORD;
wsaData: TWSAData;
p: PHostEnt;
s: array[0..128] of char;
begin
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
GetHostName(@s, 128);
p := GetHostByName(@s);
Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
WSACleanup;
end;
No se si en las ultimas versiones de DELPHI ya incluirá algunas funciones que lo hagan mas directamente
Un saludo