show port available in delphi

[Mr.P@B!0]

this small source show all port available

type
  TForm1 = class(TForm)
    Button1: TButton;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Reg    : TRegistry;
Values : TStringList;
I      : Integer;
Str    : string;

begin
ComboBox1.Clear;
Reg:=TRegistry.Create;
try
    Values:=TStringList.Create;
    try
      Reg.RootKey:=HKEY_LOCAL_MACHINE; 
 registre
      if not Reg.OpenKey('HARDWARE\DEVICEMAP\SERIALCOMM',False) then
        ShowMessage('Error : Unable to open registry Key')
      else
        begin
        Reg.GetValueNames(Values);
        for I:= 0 to Values.Count-1 do
         begin
           Str:=Reg.ReadString(Values.Strings[I]);
           ComboBox1.Items.Add(Str);
         end;
        end;

    finally
    Values.free;
    end;
  finally
    Reg.Free;

end;

end;

at this point all ok,

anyone can help me with this funtion "FriendlyName" or give me a example

thank in advance

[Gehstock]

Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi COM Ports im System auslesen

[orbita]

Originally Posted by Mr.P@B!0

this small source show all port available

anyone can help me with this funtion "FriendlyName" or give me a example

thank in advance

RequiredSize:= Info.MaxValueLen + 1;
                   SetLength(S2,RequiredSize);
                   if RegQueryValueEx(KEY,'PortName',Nil,@Regtyp,@s2[1],@RequiredSize)=Error_Success then begin

S2 will be Friendly name.