Serial port enumeration in Delphi using SetupDiGetClassDevs

Question

I\'m trying to enumerate \"friendly names\" for COM ports. The ports may dynamically change as USB-serial devices are connected and disconnected at runtime.

Based on

Answer 1

For easier operation you might consider simply using the registry where those names are listed eg:

  ErrCode := RegOpenKeyEx(
    HKEY_LOCAL_MACHINE,
    'HARDWARE\DEVICEMAP\SERIALCOMM',
    0,
    KEY_READ,
    KeyHandle);

(I've ommited the hand-waving stuff).

You might also consider using WMI - see this example from Magenta Systems - you can get a pretty much everything hardware-related now.