遍历当前可用的USB-Serial的串口

 uses Registry;procedure GetUSBCOMNames(var AResult: TStringList);const RegistryRootKey = HKEY_LOCAL_MACHINE; RegistryPath_DeviceClasses= 'SYSTEM/CurrentControlSet/Control/DeviceClasses/{86e0d1e0-8089-11d0-9ce4-08003e301f73}'; RegistryPath_Enum = 'SYSTEM/CurrentControlSet/Enum';var Dev, Reg: TRegistry; KeyNames: TStringList; iLoop : Integer; iCount : DWORD; APath : TStringList;begin AResult.Clear; Dev := TRegistry.Create; try Dev.RootKey := RegistryRootKey; if Dev.OpenKeyReadOnly(RegistryPath_DeviceClasses) then begin KeyNames := TStringList.Create; try Dev.GetKeyNames(KeyNames); Reg := TRegistry.Create; try Reg.RootKey := RegistryRootKey; //遍历所有USBCOM设备的注册表项 for iLoop := 0 to KeyNames.Count - 1 do begin if Reg.OpenKeyReadOnly(RegistryPath_DeviceClasses + '/' + KeyNames.Strings[iLoop] + '/Control') then begin iCount := Reg.ReadInteger('ReferenceCount'); Reg.CloseKey; if iCount > 0 then //RefrenceCount > 0 表示该USBCOM目前连接在主机上 begin APath := TStringList.Create; try //获取该USBCOM设备的Enum注册表内容 APath.Delimiter := '#'; APath.DelimitedText := KeyNames.Strings[iLoop]; if APath.Count >= 6 then begin if Reg.OpenKeyReadOnly(RegistryPath_Enum + '/' + APath.Strings[3] + '/' + APath.Strings[4] + '/' + APath.Strings[5]) then begin AResult.Add(Reg.ReadString('FriendlyName')); Reg.CloseKey; end; end; finally APath.Free; end; end; end; end; finally Reg.Free; end; finally KeyNames.Free; end; Dev.CloseKey; end; finally Dev.Free; end;end; 

 

 

调用的例子:

var AList : TStringList; iLoop : Integer;begin AList := TStringList.Create; try GetUSBCOMNames(AList); for iLoop := 0 to AList.Count - 1 do Memo1.Lines.Add(AList.Strings[iLoop]); finally AList.Free; end;end;