WM_DEVICECHANGE, DBT_DEVTYP_PORT: Portnamen rausbekommen.

[Rudirabbit]

Hatte neulich sowas ähnliches gebraucht

Zitat:

ComPort:= PAnsiChar(@PDevBroadcastPortA(Msg.LParam)^.dbcp_na me);

Dies hatte in meinem Fall nicht funktiontiert.

Wenn ich einen USB to Serial Adapter (FTDI Chip) anstecke/abstecke, und das Event ausgelöst wird, steht in Comport nichts plausibles.
An anderer Stelle hier im Forum habe ich dann eine Lösung gefunden um die VID und PID des Usbdevices zu bekommen. (Danke dafür)

Mit L.Param der Message, und Benutzung der Unit dbt (jedi). Es werden dort nur die records gebraucht.

Delphi-Quellcode:

DeviceInfoBlock := PDevBroadcastDeviceInterface(Msg.LParam);
        MyDevice := String(Pchar(@DeviceInfoBlock.dbcc_name));

Dann steht im String Mydevice die VID/PID drin.
Aber eine Info welcher Comport gerade belegt wird sehe ich dort nicht.

mfg