PB读取串口（com)列表

PB读取串口（com)列表

串口列表存放在注册表的HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM
这段代码可以获得COM列表

string ls_subkeylist[]

integer li_rtn

string ls_valuearray[]

string ls_1,ls_value

long i

li_rtn = RegistryKeys(“HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM”, ls_subkeylist)

IF li_rtn = -1 THEN

messagebox(‘提示’,‘此键值下面为空’)

else

RegistryValues( “HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM”, ls_valuearray)

ls_1 = ‘’

for i = 1 to upperbound(ls_valuearray)

RegistryGet( “HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM”, ls_valuearray[i], RegString!, ls_value)

ls_1 += ls_value+‘_rn’

next

messagebox(‘结果’,ls_1)

end if