Odczyt portów dostępnych w systemie

Aby po uruchomieniu programu do komponentu ComboBox1 zostały wpisane nazwy dostępnych portów:

Unit1.cpp

#include <Registry.hpp>

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   TRegistry& regKey = *new TRegistry();
   regKey.RootKey = HKEY_LOCAL_MACHINE;
   bool keyGood = regKey.OpenKey("HARDWARE\\DEVICEMAP\\SERIALCOMM", false);
   if (keyGood)
   {
      regKey.GetValueNames(ComboBox1->Items);
      for(int i = 0; i < ComboBox1->Items->Count; i++)
      {
         ComboBox1->Items->Strings[i] = regKey.ReadString(ComboBox1->Items->Strings[i]);
      }
   }
   delete &regKey;
}