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

最新推荐文章于 2024-09-05 23:07:24 发布

jadeluo

最新推荐文章于 2024-09-05 23:07:24 发布

阅读量3k

点赞数 1

分类专栏： Delphi编程文章标签： integer

本文链接：https://blog.csdn.net/jadeluo/article/details/5111481

版权

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

摘要由CSDN通过智能技术生成

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.OpenKey