FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
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) |
#2
|
||||
|
||||
Revisa ésta página:
http://www.torry.net/pages.php?id=240 Ahí puedes encontrar bastantes componentes que te facilitan el trabajo de obtener información acerca del Sistema.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
La informacion que me gustaria obtener (mas o menos) es la que se muestra en la pestaña Hardware de las propiedades del sistema.
En la direccion que me comentas (ya habia echado un vistazo en Torry.net) no veo nada que haga lo que te comento. Aun asi muchas gracia por tu respuesta.
__________________
Vivir a la deriva, sentir, que no se que hago aki... (Extremo) |
#4
|
||||
|
||||
Revisa bien.
Éste componente (por ejemplo) hace lo que necesitas y mucho, mucho más... MiTeC System Information Component v.8.7.3
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|