uses Registry; procedure TForm1.Button1Click (Sender: TObject); var reg: TRegistry; sl: TStrings; i: integer; begin reg: = TRegistry.Create; try reg.RootKey: = HKEY_LOCAL_MACHINE; reg.OpenKey ( 'hardware / devicemap / serialcomm ', false; sl: = tstringlist.create; try reg.getvaluenames (sl); for i: = 0 to sl.count -1 do memine1.lines.add (reg.readstring (sl.strings [i] )))); Finally sl.free; end; finally reg.closekey; reg.free; end; end;
