USB Stick / VendorID und ProductID

[GoTo0815]

Hallo,

ich bin schon lange auf der suche nach ner einfachen Funktion, wie ich die VendorID und die ProductID von meinem USB Stick unter Delphi auslesen kann.

Am liebsten wäre mir ja sogar die eindeutige Serial, die da irgendwo versteckt ist.

(Für alle die jetzt an sowas wie GetVolumeInformation denken: Dabei handelt es sich um keine wirklich eindeutige Serial, sie wird von Windows erstellt wenn man den Stick formatiert)


Über Hilfe wäre ich sehr dankbar

Wichtig ist, dass das relativ kurz und einfach geht.

Gruß

Hendrik