请求一段代码(找出现在计算机所有可用的串口号)

Question

找出现在计算机所有可用的串口号?

Answer 1

uses Registry;procedure TForm1.Button1Click(Sender: TObject);
var
  vStringList: TStringList;
  I: Integer;
begin
  vStringList := TStringList.Create;
  with TRegistry.Create do try
    RootKey := HKEY_LOCAL_MACHINE;
    if not OpenKey('hardware\devicemap\serialcomm', False) then Exit;
    GetValueNames(vStringList);
    for I := 0 to vStringList.Count - 1 do
      ShowMessage(Readstring(vStringList[I]));
    CloseKey;
  finally
    vStringList.Free;
    Free;
  end;
end;