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

最新推荐文章于 2025-10-13 11:23:12 发布

原创

最新推荐文章于 2025-10-13 11:23:12 发布 · 3.1k 阅读

12 ·

CC 4.0 BY-SA版权

文章标签：

#integer

通过遍历注册表中的USBCOM设备条目，获取并列出当前连接到计算机的所有USB-Serial串口的友好名称。示例代码展示了如何调用相关函数将结果输出到Memo组件。

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 + '/' + Key