原来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);
}

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

网页名称：获取系统串口号-创新互联
文章源于：http://abwzjs.com/article/ieppe.html