原來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下無效,需要管理員權(quán)限執(zhí)行才行.
在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);
}另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn,海內(nèi)外云服務(wù)器15元起步,三天無理由+7*72小時售后在線,公司持有idc許可證,提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機、免備案服務(wù)器”等云主機租用服務(wù)以及企業(yè)上云的綜合解決方案,具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價比高”等特點與優(yōu)勢,專為企業(yè)上云打造定制,能夠滿足用戶豐富、多元化的應(yīng)用場景需求。
新聞標題:獲取系統(tǒng)串口號-創(chuàng)新互聯(lián)
轉(zhuǎn)載注明:http://www.chinadenli.net/article34/ieppe.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供定制網(wǎng)站、全網(wǎng)營銷推廣、網(wǎng)站設(shè)計公司、面包屑導航、Google、品牌網(wǎng)站設(shè)計
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容