查找有多少个串口

uses registry

 

procedure TForm1.Button1Click(Sender: TObject);
  var
      reg:   TRegistry;
      st:   Tstrings;
      i:   Integer;
  begin
      reg   :=   TRegistry.Create;
      try
          reg.RootKey   :=   HKEY_LOCAL_MACHINE;
          reg.OpenKey('HARDWARE/DEVICEMAP/SERIALCOMM',   False);
          st   :=   TstringList.Create;
          try
              reg.GetValueNames(st);
              for   i   :=   0   to   st.Count   -   1   do
              Memo1.Lines.Add(reg.Readstring(st.strings[i]));
          finally
              st.Free;
          end;
          reg.CloseKey;
      finally
          reg.Free;
      end;

end;