Obtener Numeros de Serie de algunos perifericos
 

Aclaro posteo esta pregunta aqui, porque he alcanzado a leer algo y parece ser que esta podria ser una solucion o bien adentrarse en el registro

Necesito tomar los numeros de serie de los perifericos instalados ejemplo:

hacer un barrido y detectar:

Mouse Tipo y Serie
Teclado Tipo y Serie
Monitor Tipo y Serie
CPU Idem
CD Writer
Disco Duro
Scanner
Impresora

Espero me puedan ayudar, muchisimas gracias

chaca este programa en la pagina de torry.net, tal vez te sirva

MiTeC System Information Component v.8.7.2

http://torry.net/pages.php?id=240

trae un demo, con sus componentes

espero te sirva :cool:

Habra al Free??
 

Me pueden ayudar con algo free

Serial del disco
 

Hola

En la direccion : http://www.winsim.com/diskid32/diskid32.html puede encontrar un programa que te da informacion muy detallada del disco rígido, incluso el número de serie físico del mismo (es freeware); incluye el código fuente.
El código esta en c, pero podés hacerla una dll y llamarla desde delphi.
Con respecto a los otros dispositivos es más complicado y no creo que encuentres esa información para todos ellos salvo algunos CPU de intel.
Espero que esta respuesta te sirva.
Saludos

Prueba con esto:

//Añade Registry en el uses de tu formulario

procedure TForm1.Button1Click(Sender: TObject);

procedure GetHardwareList(DisplayStrings : TStrings);
var
RegHKDD, RegHKLM: TRegistry;
SLKeys, SLHWL: TStringList;
i: Integer;
RegDataInfo : TRegDataInfo;
begin
try
RegHKDD := TRegistry.Create;
RegHKDD.RootKey := HKEY_DYN_DATA;
RegHKLM := TRegistry.Create;
RegHKLM.RootKey := HKEY_LOCAL_MACHINE;
SLKeys := TStringList.Create;
SLHWL := TStringList.Create;
SLHWL.Sorted := true;
if RegHKDD.OpenKey('\Config Manager\Enum', false) then begin
RegHKDD.GetKeyNames(SLKeys);
for i := 0 to SLKeys.Count - 1 do
if RegHKDD.OpenKey('\Config Manager\Enum\' + SLKeys[i], false)then
if RegHKLM.OpenKey('\Enum\' + RegHKDD.ReadString('HardWareKey'), false) then
if RegHKLM.GetDataInfo('Class', RegDataInfo) then
SLHWL.Add(RegHKLM.ReadString('Class')
+ ': '
+ RegHKLM.ReadString('DeviceDesc'));
end; {if RegHKDD.OpenKey('\Config Manager\Enum', false)}
finally
SLKeys.Free;
RegHKLM.Free;
RegHKDD.Free;
end;
DisplayStrings.Assign(SLHWL);
SLHWL.Free;
end;

begin
GetHardwareList(Memo1.Lines);
end;