读计算机上的所有串口

 
 TRegistry * reg=new TRegistry;
 reg->RootKey=HKEY_LOCAL_MACHINE;
 reg->OpenKey("HARDWARE//DEVICEMAP//SERIALCOMM",true);
 comList->Sorted=false;
 reg->GetValueNames(comList->Items);
 comList->Items->BeginUpdate();
 for(int i=0;i<comList->Items->Count;i++)
comList->Items->Strings[i]=reg->ReadString(comList->Items->Strings[i]);
 comList->Items->EndUpdate();
 comList->Sorted=true;