//---------------------------------------------------------------------------

// 枚举串口

void __fastcall TForm1::BtnEnumClick(TObject *Sender)

{

  // 清除信息提示区

  Memo1->Clear();

  // 清空串口列表, sg 是 TStringGrid 对象

  sg->Clear();

  sg->Cells[0][0] = L"串口物理名称";

  sg->Cells[1][0] = L"串口逻辑名称";  // 就是 COM1, COM2 之类的

  // 列标题居中对齐

  sg->Alignments[0][0] = taCenter;

  sg->Alignments[1][0] = taCenter;

  // 创建注册表对象

  std::auto_ptr<TRegistry> Registry(new TRegistry(KEY_READ));

  try

  {

    // 注册表根路径

    Registry->RootKey = HKEY_LOCAL_MACHINE;

    // 打开串口设备所在的注册表路径

    bool bResult = Registry->OpenKey("\\HARDWARE\\DEVICEMAP\\SERIALCOMM", false);

    // 若打开注册表失败，提示信息，直接返回

    if (!bResult) {

      ShowHint("注册表路径不存在.");

      return;

    }

    // 数据项(名称)列表，就是串口物理名称列表

    std::auto_ptr<TStringList> ItemNameList(new TStringList());

    // 获取数据项(名称)列表，就是串口物理名称列表

    Registry->GetValueNames(ItemNameList.get());

    // 单个数据项的名称和值 (字符串形式)，值的字符串形式就是串口逻辑名称，就是COM1, COM2 之类的

    UnicodeString sItemName, sItemValue;

    // 逐个获取数据项值 (字符串形式)

    for (int i = 0; i < ItemNameList->Count; i++)

    {

      // 当前数据项名称，也就是串口物理名称

      sItemName = ItemNameList->Strings[i];

      // 读取对应的数据项值 (字符串形式)，也就是串口逻辑名称

      sItemValue = Registry->ReadString(sItemName);

      // 显示串口物理名称和串口逻辑名称

      //ShowHint(sItemName + "\t" + sItemValue);

      // sg 是 TStringGrid 对象

      sg->Cells[0][i + 1] = sItemName;

      sg->Cells[1][i + 1] = sItemValue;

      sg->AutoSizeColumns(true, 0);

    }

    // 关闭会产生写入操作

    //Registry->CloseKey();

  }

  // 在读取注册表时发生异常

  catch(...) {

    ShowHint("在读取注册表时发生异常.");

  }

}

//---------------------------------------------------------------------------