Obtener datos de un Equipo
 

Saludos amigos foristas.

me gustaria saber como hago para obtener en label1 nombre del equipo, label 2 ip, label3 tarjeta madre, label4 procesador, label5 dirección ip...

gracias adelantadas

Ayuda
 

-Crea una form (Form1) y pon en ella un TButton (Button1) y un TMemo (Memo1)
-Incluye 'Winsock' en la parte uses
-En el evento OnCreate de la form incluye éste código:

Código Delphi [-]
         procedure TForm1.FormCreate(Sender: TObject);
         var 
           wVersionRequested : WORD;
           wsaData : TWSAData;
         begin 
          {Start up WinSock}
           wVersionRequested := MAKEWORD(1, 1);
           WSAStartup(wVersionRequested, wsaData);
         end;

-En el evento OnClick del Button1 pon este código:

Código Delphi [-]
         procedure TForm1.Button1Click(Sender: TObject);
         var 
           p : PHostEnt;
           s : array[0..128] of char;
           p2 : pchar;
         begin 
          {Get the computer name}
           GetHostName(@s, 128);
           p := GetHostByName(@s);
           Memo1.Lines.Add(p^.h_Name);
          {Get the IpAddress}
           p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
           Memo1.Lines.Add(p2);
         end;

-Finalmente, en el evento OnDestroy de la Form1 pon este código:

Código Delphi [-]
         procedure TForm1.FormDestroy(Sender: TObject);
         begin 
          {Shut down WinSock}
           WSACleanup;
         end;

y ya está...

muy bien ese codigo funciona para el nombre del computador y para la ip

y la tarjeta madre? y el procesador?
gracias por tu ayuda tio, seguro sabes acar esos dos componentes que necesito ojala me puedas ayudar con los otros dos gracias adelantadas!!

Aquí tienes unos cuantos componentes que te permiten obtener esa información y mucha más. Hay bastantes gratuítos. Yo hace tiempo utilizé uno de MiTEC. Altualmente (las versiones más nuevas) son de pago, pero aun se pueden encontrar versiones antiguas que eran gratuítas.

Muchas Gracias Neftali esos componentes han funcionado mejor que como esperaba ahora solo tengo que hacer el mio propio, pero ya tengo por donde empezar.....salu2