_倔强

摘要： 工作中对于读卡器的操作比较多，就自己总结了一下usb拔插的检测。首先，让自己的自定义类能接收windows消息，FHandle := AllocateHWnd(WinMethod);这个貌似有点像.net中的委托，把函数当做参数，添加自定义函数WinMethod.第二步，注册自己的usb设备。 1 procedure TUsbTest.RegisterUsbHandler; 2 var rDbi : DEV_BROADCAST_DEVICEINTERFACE; 3 iSize : integer; 4 begin 5 iSize := SizeOf(DEV_BROADCAST_DE... 阅读全文