原來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://vcdvsql.cn/article34/ieppe.html

成都網站建設公司_創新互聯，為您提供定制網站、全網營銷推廣、網站設計公司、面包屑導航、Google、品牌網站設計

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯