Name eines Comports auslesen

[hathor]

Hier habe ich etwas gefunden, was gut funktioniert (auch ohne diesen JWA-...!)
http://www.delphipraxis.net/1119476-post11.html

Ausgabe:

Anzahl der Schnittstellen : 1
COM7 : USB Serial Port (COM7)

Delphi-Quellcode:

procedure TForm2.Button4Click(Sender: TObject);  // uses Registry
var
  i: integer;
  Reg: TRegistry;
  SerPortNum: integer;
  EnumList: TStringList;
  FriendlyName: String;
  PortName: String;
begin
  Reg := TRegistry.Create();
  EnumList := TStringlist.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKeyReadOnly('\System\CurrentControlSet\Services\SerEnum\Enum') then
    begin
      SerPortNum := Reg.ReadInteger('Count');
      Memo1.Lines.Add('Anzahl der Schnittstellen : '+inttostr(SerPortNum));
      for i:=0 to SerPortNum-1 do
        EnumList.Add(Reg.ReadString(inttostr(i)));
      Reg.CloseKey;
      for i:=0 to SerPortNum-1 do
      begin
        if Reg.OpenKeyReadOnly('\System\CurrentControlSet\Enum\'+EnumList.Strings[i]+'\Device Parameters') then
          PortName := Reg.ReadString('PortName');
        Reg.CloseKey;
        if Reg.OpenKeyReadOnly('\System\CurrentControlSet\Enum\'+EnumList.Strings[i]) then
          FriendlyName := Reg.ReadString('FriendlyName');
        Reg.CloseKey;
        Memo1.Lines.Add(PortName + ' : ' + FriendlyName);
      end;
    end;
  finally
    EnumList.Free;
    Reg.Free;
  end;
end;

[Gutelo]

Ja, es ist klar dass man erstmal wissen muss wie sich das Device meldet

[Gutelo]

Hathor,

der Codeschnippsel findet bei mir leider nur eine einzige Schnittstelle (COM1) obwohl ich zig Schnittstellen habe.

Gutelo

[hathor]

Zitat von Gutelo:

Hathor,

der Codeschnippsel findet bei mir leider nur eine einzige Schnittstelle (COM1) obwohl ich zig Schnittstellen habe.

Gutelo

In Betrieb?
Wahrscheinlich musst Du alle BT Ports mal löschen...
Irgendwas läuft da falsch!

Zitat:
Phantom Devices
Devices that have been installed on a system but are not currently available are referred to as "phantom devices". These devices are not usually displayed in the device manager, but can be made to be displayed as though they are attached. This allows device properties to be changed or devices to be uninstalled via Device Manger even though the device is not physically connected to the PC.

Die kann man sich im Device Manager anzeigen lassen.