Visualizar la IP y el nombre del PC

[hook]

Hola a todos, necesitaria mostrar en mi programa la Ip del equipo y el nombre del pc. Como puedo visualizar estos dos datos????

Un saludo y gracias.

[[Ohcan]]

Para el nombre del equipo:

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

[hook]

Gracias pero no me funciona, hay otra forma???

[delphi.com.ar]

Empezado por hook

Gracias pero no me funciona, hay otra forma???

No te funciona: ¿Te da un error? ¿No te compila? ¿No hace nada?..... ¿Qué te hace?

PD: Si hay otras formas: WNetGetUser o navegando el registro, por ejemplo.

Saludos!

[hook]

Al compilar me da un error (que no se muy bien que quiere decir). Hay otra forma para poder visualizar estos dos datos ya que tampoco entiendo mucho el codigo que me han puesto mas arriba, hay alguna otra forma mas sencilla???

Gracias, ya que me urge bastante.

[delphi.com.ar]

Empezado por hook

Al compilar me da un error (que no se muy bien que quiere decir).

Sería buenísimo que nos digas que es lo que dice el error!

Por otro lado, embarcarse sin saber navegar no es una buena idea, te recomiendo leer un poco, interiorizarte en el tema. El código es mas que sencillo, define un puntero a carácter, reserva la memoria de ese puntero, llama a la WinApi GetComputerName, y asigna el resultado obtenido a un string, y libera la memoria.