FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Inventario de Hardware
Hola a tod@s:
Necesito hacer hacer un inventario del hardware instalado en un equipo, para Windows 9x encontre lo siguiente en TMania: Código:
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; Agradeceria una ayudita. Gracias.
__________________
Vivir a la deriva, sentir, que no se que hago aki... (Extremo) |
|
|
|