Datos de la computadora

[wildnetboy]

Hola a todos espero no molestarlos con la pregunta pero ando un poco mal en la programacion asi que me gustaria que me dieran una mano o me orientaran donde puedo leer para resolver el problema.

El problema es el siguiente:
Necesito saber:
1.- El nombre de la computadora.
2.- Unidades (CD,DVD o HD)
3.- Cantidad de memoria RAM.
4.- Tipo de procesador.
5.- IP de la computadora.
6.- Nombre de la red a la que pertenece
7.- Paqueteria instalada.

Es para un proyecto que estoy realizando..
De antemano muchas gracias a todos.

[dec]

Hola,

Tal y como lo planteas yo te diría que utilizases algún componente de los que encuentras en Torry's, por ejemplo.

[[seoane]]

La forma de obtener la mayoría de esos datos la encontraras por separado en distintos hilos de este mismo foro, o puede que en la sección de trucos. Yo recuerdo que en algún hilo se hablo, al menos, de los siguiente.

El nombre de la computadora.
Unidades (CD,DVD o HD)
Cantidad de memoria RAM.
IP de la computadora.

Y puede que del resto también se hablara.

[wildnetboy]

Alguien que tenga algo mas en concreto que me pueda ayudar
Gracias

[Roilo]

Tengo algo para ti...

Código Delphi [-]
function GetComputerName : String; {Determinar Nombre de PC}
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;

Buscando por el registro de Windows encontré una clave que contenía caracteristicas del CPU de mi Maquina y creé este código para cacturarla. Hasta ahora no me cuadra, porque solo me ha servido para los procesadores Intel. Agradeceria que alguien pusiera aqui otra forma de cacturar las caracteristicas del CPU...

Agregar Registry al uses de tu FORM...

Código Delphi [-]
with TRegistry.Create do {Determinar Caracteristicas del CPU}
  try
    RootKey:= HKEY_LOCAL_MACHINE; // <-- La clave root
    if OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0',FALSE) then
    begin
      if ReadString('ProcessorNameString')<>'' then
       begin
        label8.Caption :=ReadString('ProcessorNameString');
        closekey;
       end
       else
      label8.Caption := '              CPU sin determinar...';
    end;
  finally
    Free;
  end;

Espero te sirva.

[Casimiro Notevi]

Empezado por wildnetboy

Alguien que tenga algo mas en concreto que me pueda ayudar
Gracias

¿Y qué quieres más en concreto?