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;