[fpc-pascal] How to list USB devices on Windows?

[Marco van de Voort]

In our previous episode, Marc Santhoff said:
> > Or is there an FPC command already?
> 
> I have some code in Object Pascal doing such stuff. The problem with it is, it
> has no copyright string or author anywhere. I even don't know where it is
> from, it's one of the pieces of code collected when stumbled upon, thinking
> "this will be useful later"...
> 
> I can send it in private or post it here on the list or on pastebin. Maybe the
> author can be identified?
> 
> I hesitate calling it public domain, but the code snippets I collect are
> exactly that, visible for everyone, from postings on forums and the like.

JVCL also has such code. I use it to get descriptive names for usb serials.