如何获得系统中的串口数量及每个串口的设备名找p3工程管理软件下载

库存管理软件版1楼: fq

2楼: 我知道在注册表中查找，不过，具体的键值我不记得了！如p3工程管理软件下载

3楼: function TForm1.GetComms:TStrings;
var
reg: TRegistry;
st: Tstrings;
rt: TStrings;
i: Integer;
begin
reg := TRegistry.Create;
try

reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey(＇＇hardware＼devicemap＼serialcomm＇＇, False);
st := TstringList.Create;
rt := TStringList.Create;
try
reg.GetValueNames(st);
for i := 0 to st.Count - 1 do
rt.Add(reg.Readstring(st.strings[i]));

Result := rt;
finally
st.Free;
//rt.Free;
end;

reg.CloseKey;
finally
reg.Free;
end;
end;