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
|
|||
|
|||
Puertos disponibles -2
No se porque se borro mi post anterior, pero lo vuelvo a colocar.
Utilicé el código mostrado abajo que encontré en Internet, a fin de determinar que puertos seriales existen en la PC que corre mi aplicación y rellenar un combo box para que el usuario escoja solo de los que están disponibles. Sin embargo, obtengo un error al compilar que dice: [Error] NGFS.pas(47): Undeclared identifier: 'TRegistry' Se que se debe a la declaración y creación de la clase. ¿Podrían sugerirme que es lo que falta? Muchas Gracias. Código:
var i:integer; with TRegistry.create do try rootkey:=HKEY_LOCAL_MACHINE; if keyexists('HARDWARE') then begin if openkey('HARDWARE',false)then begin if keyexists('DEVICEMAP') then begin if openkey('DEVICEMAP',false)then begin if keyexists('SERIALCOMM') then begin if openkey('SERIALCOMM',false)then begin GetValueNames(SerialCombo.items); for i:=0 to SerialCombo.items.count-1 do begin SerialCombo.items[i]:=ReadString(SerialCombo.items[i]); end; end end; end; end; end; end; finally free; end; |
#3
|
||||
|
||||
Tenes que declarar una variable de tipo TRegistry y trabajar con ella. No podes trabajar directamente con la clase TRegistry:
Salu2.. |
#4
|
||||
|
||||
Hola,
Cita:
|
#5
|
||||
|
||||
Además de lo ya dicho (incluir la unidad Registry), creo que el código es innecesariamente largo. Podría intentar algo así:
// Saludos |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|