检测本机串口

var reg : TRegistry; ts : TStrings; i : integer; begin reg := TRegistry.Create; try reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('hardware/devicemap/serialcomm',false); ts := TStringList.Create; reg.GetValueNames(ts); cBox_SerialCOM.Items.Clear; for i := 0 to ts.Count -1 do combobox.Items.Add(reg.ReadString(ts.Strings[i])); ts.Free; reg.CloseKey; finally reg.free; end;