通过注册表获取当前所有串口号

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons,Registry;

type
  TIntArray=Array of Integer;

 

function TForm1.GetComPorts:TIntArray;
var
  reg:TRegistry; // 注: 要引用Registry单元
  Namelst:TStrings;
  i:integer;
  str:AnsiString;
  ComPorts:TIntArray;
begin
  Namelst:=TStringList.Create;
  reg:=TRegistry.Create;
  reg.RootKey :=HKEY_LOCAL_MACHINE;
  reg.OpenKey('HARDWARE/DEVICEMAP/SERIALCOMM',true);
  reg.GetValueNames(Namelst);
  SetLength(ComPorts,Namelst.Count);

  for i := 0  to Namelst.Count -1 do
  begin
    str:=reg.ReadString(Namelst[i]);
    ComPorts[i]:=StrToInt(Copy(str,4,Length(str)));
  end;
  reg.CloseKey;
  reg.Free;
  Namelst.Free;
  Result:=ComPorts;

end;