[[Bicho]]

Hola Carlos,

sacado de trucomania:

En el uses del programa añade WinSock

Código Delphi [-]
(*** Devuelve el nombre del PC **********)
function GetComputerName : String;
var pcComputer : PChar;
    dwCSize    : DWORD;
begin
  dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
  GetMem( pcComputer, dwCSize );
  try
    if Windows.GetComputerName( pcComputer, dwCSize ) then Result := pcComputer;
  finally
    FreeMem( pcComputer );
  end;
end;

(*** Obtiene la IP de tu máquina sin usar OCX **********)
function GetIP : String;
var p : PHostEnt;
    s : array[0..128] of char;
    wVersionRequested : WORD;
    wsaData : TWSAData;
begin
  wVersionRequested := MAKEWORD(1, 1);
  WSAStartup(wVersionRequested, wsaData);
  GetHostName(@s, 128);
  p := GetHostByName(@s);
  Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
  WSACleanup;
end;

Espero te sirva de ayuda.

Saludos