如何获得系统中的串口数量及每个串口的设备名(50分)

fq

我知道在注册表中查找，不过，具体的键值我不记得了！

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));

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

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

hkey local machine->hardware->description->system->multifunctionadapter->5->serialcontroller

同意“来如风”的

多人接受答案了。