原来C++Builder6在XP下获取串口的方法:

创新互联建站是由多位在大型网络公司、广告设计公司的优秀设计人员和策划人员组成的一个具有丰富经验的团队，其中包括网站策划、网页美工、网站程序员、网页设计师、平面广告设计师、网络营销人员及形象策划。承接：成都网站设计、网站建设、网站改版、网页设计制作、网站建设与维护、网络推广、数据库开发,以高性价比制作企业网站、行业门户平台等全方位的服务。

void TTools::GetSystemPortList(TStringList * pList)
{
        TRegistry *regkey=new TRegistry();
        pList->Clear();
        regkey->RootKey=HKEY_LOCAL_MACHINE;
        TStringList *KeyNames;
        KeyNames=new TStringList();
        regkey->OpenKey("HARDWARE\\DEVICEMAP\\SERIALCOMM",false);
        regkey->GetValueNames(KeyNames);
        for(int i=0;i<=(KeyNames->Count-1);i++)
        {
           AnsiString a = regkey->ReadString(KeyNames->Strings[i]);
           pList->Add(a);
        }
       
        regkey->CloseKey();
        delete KeyNames;
        delete regkey;
}

这种方法,编译好的程序,在Win10下无效,需要管理员权限执行才行.
在Win10直接用API读注册表获取,代码如下:

void TTools::GetSystemAllPort(TStringList * pList)
{
    HKEY hKey;
    DWORD result;
    TCHAR valueName[255];
    TCHAR data[255];
    DWORD valueNameSize,dataSize;
    DWORD i;
    result = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Hardware\\DeviceMap\\SerialComm", 
             NULL, KEY_READ, &hKey);//读取注册表串口信息
    if(ERROR_SUCCESS == result)
    {
        for(i=0;i<256 ;i++)
        {
            valueNameSize = dataSize = sizeof(valueName) / sizeof(TCHAR);
            result = RegEnumValue(hKey, i, valueName, &valueNameSize, NULL, NULL, 
                     (LPBYTE)data, &dataSize);
            if(ERROR_NO_MORE_ITEMS == result )
            {
                break;
            }
            else
            {
               pList->Add(data);
            }
        }
    }
    else
    {
        ::MessageBox(0,"PORT ERROR!","Error",0);
    }
    RegCloseKey(hKey);
}

文章标题：获取系统串口号
网页链接：http://lswzjz.com/article/johgdd.html