Como obtener mediante delphi el nombre o la ip de una pc

[carlos gonzalez]

Hola amigos tengo una duda ojala puedan ayudarme u orientarme, desarrolle un sistema en delphi 7 y necesito obtener el nombre o la ip de una pc o de la pc que esta utilizando el sistema.

Si alguien tiene una idea de como puedo hacer esto y lo quiere compartir con migo se los voy agradecer infinitamente.

Su amigo Charles

Estare esperando sus valiosos comentarios.

Saludos

[[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

[martita]

Hola compañerito, no se que vercion de delphi tengas
si usas delphi 2005, ya viene con componentes que te dan
todo lo de tu pc , ip, usuario, nombre del pc, tipo de procesador,
memoria disponible, cantiada de ram instalada, hasta de da una lista
de perifericos instalados en tu pc, Pero si usas otra vercion
bajate los componentes de la jvcl que viene con componentes
casi iguales a los que te mencione anteriormente, no tengo ahora
la liga de donde las puedas bajar, pero has una busqueda en este foro
y seguro encontraras alguna referencia hacia ellas. aqui yo lo encontre
y las baje hace unos meses.

suerte .

saludos .