从注册表里搜寻安装的串口

/* -------- 从注册表里搜寻安装的串口 -----------------------
Win2k/XP和Win98/Me的注册表值不同,所以用枚举
把串口名字写入一个ComboBox控件里
*/
void FindCommPort( CComboBox *pComboBox )
{
HKEY hKey;

#ifdef _DEBUG
ASSERT( pComboBox != NULL );
pComboBox->AssertValid();
#endif

if( ::RegOpenKeyEx( HKEY_LOCAL_MACHINE,
"Hardware//DeviceMap//SerialComm",
NULL,
KEY_READ,
&hKey) == ERROR_SUCCESS) // 打开串口注册表
{
int i=0;
char portName[256],commName[256];
DWORD dwLong,dwSize;

while(1)
{
dwLong = dwSize = sizeof(portName);
if( ::RegEnumValue( hKey,
i,
portName,
&dwLong,
NULL,
NULL,
(PUCHAR)commName,
&dwSize ) == ERROR_NO_MORE_ITEMS ) // 枚举串口
break;

pComboBox->AddString( commName ); // commName就是串口名字
i++;
}

if( pComboBox->GetCount() == 0 )
{
::AfxMessageBox( "在HKEY_LOCAL_MACHINE:Hardware//DeviceMap//SerialComm里找不到串口!!!" );
}

RegCloseKey(hKey);
}
}
我经过简单的修改它就可以在cb 里面用了,主要还是因为这个函数用了标准的windows API.

/* -------- 从注册表里搜寻安装的串口 -----------------------
Win2k/XP和Win98/Me的注册表值不同,所以用枚举
把串口名字写入一个ComboBox控件里
*/
int FindCommPort( TComboBox *pComboBox )
{
HKEY hKey;
if(pComboBox==NULL) return 0;
if( ::RegOpenKeyEx( HKEY_LOCAL_MACHINE,
"Hardware//DeviceMap//SerialComm",
NULL,
KEY_READ,
&hKey) == ERROR_SUCCESS) // 打开串口注册表
{
int i=0;
char portName[256],commName[256];
DWORD dwLong,dwSize;

while(1)
{
dwLong = dwSize = sizeof(portName);
if( ::RegEnumValue( hKey,
i,
portName,
&dwLong,
NULL,
NULL,
(PUCHAR)commName,
&dwSize ) == ERROR_NO_MORE_ITEMS ) // 枚举串口
break;

pComboBox->Items->Add(commName ); // commName就是串口名字
i++;
}
RegCloseKey(hKey);
if( pComboBox->Items->Count == 0 )
{
ShowMessage( "在HKEY_LOCAL_MACHINE:Hardware//DeviceMap//SerialComm里找不到串口!!!" );
return 0;
}
return 1;
}
}

//delphi的版本

Procedure GetPortList(slPort:TStringList);
var
reg : TRegistry;
ts : TStrings;
i : integer;
sName,sPort:string;
slList:TStringList;
begin
reg := TRegistry.Create;
ts := TStringList.Create;
slList:=TStringList.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('hardware/devicemap/serialcomm',false);
reg.GetValueNames(ts);

slList.Sorted:=true;

for i := 0 to ts.Count -1 do begin
sName:=LowerCase(Trim(ts.Strings[i]));
//得到串口名称
sPort := UpperCase(Trim(reg.ReadString(sName)));
if Copy(sPort,1,3) <> 'COM' then Continue;
sPort:=Copy(sPort,4,Length(sPort));
sPort:=FormatFloat('000',StrToInt(sPort));
slList.Add(sPort);
end;

slPort.Clear;
for i:=0 to slList.Count-1 do
slPort.Add('COM'+IntToStr(StrToInt(slList.Strings[i])));
finally
ts.Free;
reg.CloseKey;
reg.free;
end;
end;