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 (http://www.torry.net/quicksearchd.php?String=SysInfo&Title=Yes), 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...


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

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]

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

¿Y qué quieres más en concreto? ;)