列举串口

LPSTR  __stdcall GetAllCOMPorts(LPSTR pPortList)
{
long lReg,k = 0,i;
HKEY hKey;
DWORD MaxValueLength;
DWORD dwValueNumber;
static LPSTR pValueName,pCOMNumber;
DWORD cchValueName,dwValueSize=6;
lReg=RegOpenKeyExA(HKEY_LOCAL_MACHINE,
"HARDWARE//DEVICEMAP//SERIALCOMM",
0,
KEY_QUERY_VALUE,
&hKey);
if (lReg!=ERROR_SUCCESS)
{
MessageBoxA(0,
"查找端口错误，无法打开注册表“HARDWARE//DEVICEMAP//SERIALCOMM”",
"PortDLLError",MB_OK  ¦ MB_ICONERROR);
return pPortList;
}
lReg=RegQueryInfoKeyA(hKey,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
&dwValueNumber,
&MaxValueLength,
NULL,
NULL,
NULL);
if (lReg!=ERROR_SUCCESS)
{
MessageBoxA(0,
"查找端口错误，无法得到子键信息",
"PortDLLError",MB_OK  ¦ MB_ICONERROR);
return pPortList;
}
for (i=0;i  < dwValueNumber;i++)
{
cchValueName = MaxValueLength + 1;
dwValueSize = 6;
pValueName = (LPSTR)VirtualAlloc(NULL,cchValueName,MEM_COMMIT,PAGE_READWRITE);
lReg = RegEnumValueA(hKey,
i,
pValueName,
&cchValueName,
NULL,
NULL,
NULL,
NULL);
if ((lReg != ERROR_SUCCESS) && (lReg != ERROR_NO_MORE_ITEMS))
{
MessageBoxA(0,
"查找端口错误，无法得到键值",
"PortDLLError",MB_OK  ¦ MB_ICONERROR);
return pPortList;
}
pCOMNumber = (LPSTR)VirtualAlloc(NULL,6,MEM_COMMIT,PAGE_READWRITE);
lReg=RegQueryValueExA(hKey,
pValueName,
NULL,
NULL,
(LPBYTE)pCOMNumber,
&dwValueSize);
if (lReg!=ERROR_SUCCESS)
{
MessageBoxA(0,
"查找端口错误，无法得到键值",
"PortDLLError",MB_OK  ¦ MB_ICONERROR);
return pPortList;
}
strcat(pPortList,pCOMNumber);
k += strlen(pCOMNumber);
pPortList[k]='/n';
k++;
VirtualFree(pValueName,0,MEM_RELEASE);
VirtualFree(pCOMNumber,0,MEM_RELEASE);
}
return pPortList;
}