Obtener datos de un Equipo

[lKinGl]

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

[Ferrari]

-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á...

[lKinGl]

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

[Neftali [Germán.Estévez]]

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.

[lKinGl]

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