Get the list of available COM-ports from Windows Registry

COM-ports

uses Registry;

procedure getCOM_ports();
var
  reg: TRegistry;
  st: Tstrings;
begin
  reg := TRegistry.Create(KEY_READ);
  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
      begin
        ShowMessage(reg.Readstring(st.strings[i]));
      end;
    finally
      st.Free;
    end;
    reg.CloseKey;
  finally
    reg.Free;
  end;
end;