RegisterDeviceNotification schlägt immer mit Error 13 fehl

[OldGrumpy]

Hallo zusammen,

ich hab mal wieder ein seltsames Problem *grins*

Ich versuche auf das Abziehen/Anstecken eines USB-Geräts zu reagieren, ohne RegisterDeviceNotification funktioniert das leider nicht, ich bekomme in meiner Notify-Funktion dann nur WM_DEVICECHANGE mit wParam=$0007 ("DEV_NODES_CHANGED") zu sehen, ohne weitere Infos was sich wo geändert hat.

Daraufhin wollte ich dann schauen ob sich das mit RegisterDeviceNotification ändern lässt, doch irgendwo klemmts da ganz enorm. Ich habe aus den Jedis die DBT.pas und JvComputerInfoEx.pas in meine Uses-Liste aufgenommen und arbeite mit den Typedefs von dort. Mein Code beschränkt sich dann auf folgendes:

Delphi-Quellcode:

Procedure TTestForm.RegisterUsbNotification;
var
  UsbNotifyInfo: TDevBroadcastDeviceinterfaceA;
  Examine: Pointer;
  Error: Cardinal;
begin
  ZeroMemory(@UsbNotifyInfo, sizeof(UsbNotifyInfo));
  UsbNotifyInfo.dbcc_size:=sizeof(UsbNotifyInfo);
  UsbNotifyInfo.dbcc_devicetype:=DBT_DEVTYP_DEVICEINTERFACE;
  UsbNotifyInfo.dbcc_reserved:=0;
  UsbNotifyInfo.dbcc_classguid:=StringToGuid('{A5DCBF10-6530-11D2-901F-00C04FB951ED}');
  Examine:=RegisterDeviceNotification(self.WindowHandle, @UsbNotifyInfo, 0); //0=DEVICE_NOTIFY_WINDOW_HANDLE
  Error:=GetLastError;
end;

Leider ist nach dem Aufruf von RegisterDeviceNotification Examine=Nil und GetLastError liefert den Wert 13 ("ERROR_INVALID_DATA"). Ich hab schon den halben Tag mit Google verbracht aber nichts hilfreiches gefunden, bei Delphi3000 steht sogar ein Artikel der bis auf eigene Typedefs praktisch alles genauso macht wie mein Code - wo ist der Haken? Hilfäh!