Dynamisch ComPort ermitteln...

[hitzi]

Delphi-Quellcode:

sl := TStringlist.Create;
  try
    reg := TRegistry.Create;
    try
      reg.RootKey := HKEY_LOCAL_MACHINE;
      reg.OpenKeyReadOnly('hardware\devicemap\serialcomm');
      reg.GetValueNames(sl);
      reg.CloseKey;
    finally
      FreeAndNil(reg);
    end;
  finally
    FreeAndNil(sl);
  end;

Damit ermittel ich alle Comports im System.