unit1.pas

可以找描出系统可用的串口

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    cobcomname: TComboBox;
    procedure FormCreate(Sender: TObject);
  private
    function   getComNames():TStringList;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.getComNames: TStringList;
var   
      reg:TRegistry;   
      strName:TStringList;   
      i:integer;   
  begin   
      strName:=TStringList.Create;
      reg:=   TRegistry.Create;
      reg.RootKey:=HKEY_LOCAL_MACHINE;   
      if   reg.OpenKeyReadOnly('hardware\devicemap\serialcomm')   then   
      begin   
          reg.GetValueNames(strName);   
      end;   
      Result:=TStringList.Create;   
      for   i:=0   to   strName.Count-1   do   
          Result.Add(reg.ReadString(strName.Strings[i]));   
      reg.CloseKey;
      reg.Destroy;
  end;


procedure TForm1.FormCreate(Sender: TObject);
  var   Reg:   TRegistry;   
      strName:TStringList;   
      i:integer;   
  begin   
      strName:=getComNames();   
      cobComName.Clear;
      for   i:=0   to   strName.Count-1   do   
          cobComName.AddItem(strName[i],self);   
      cobComName.ItemIndex:=0;   
  end;

end.