delphi中检测usb拔插状态

工作中对于读卡器的操作比较多，就自己总结了一下usb拔插的检测。

首先，让自己的自定义类能接收windows消息，FHandle := AllocateHWnd(WinMethod);这个貌似有点像.net中的委托，把函数当做参数，添加自定义函数WinMethod.

第二步，注册自己的usb设备。

procedure TUsbTest.RegisterUsbHandler;
var rDbi : DEV_BROADCAST_DEVICEINTERFACE;
    iSize : integer;
begin
  iSize := SizeOf(DEV_BROADCAST_DEVICEINTERFACE);
  ZeroMemory(@rDbi,iSize);
  rDbi.dbcc_size := iSize;
  rDbi.dbcc_devicetype := USB_INTERFACE;
  rDbi.dbcc_classguid  := GUID_DEVINTF_USB_DEVICE;
  RegisterDeviceNotification(FHandle,@rDbi,DEVICE_NOTIFY_WINDOW_HANDLE);
end;

第三步，WinMethod方法的实现。

procedure TUsbTest.WinMethod(var Message: TMessage);
var
  SendData:TCopyDataStruct;
begin
  //检查usb状态
  if message.Msg = WM_DEVICECHANGE then
  begin
    //移入
    if message.WParam = USB_INSERTION then
    begin
      fillchar(SendData,sizeof(SendData),0);
      SendData.dwData :=USB_INSERTION;
      //这里的SendData不是必须的，最后一个参数直接写0也可以，这个相当于是一个扩展的参数
      SendMessage(FHandle,WM_COPYDATA,USB_INSERTION,LParam(@SendData));
    end;
    //移出
    if message.WParam = USB_REMOVAL then
    begin
      fillchar(SendData,sizeof(SendData),0);
      SendData.dwData :=USB_REMOVAL;
      SendMessage(FHandle,WM_COPYDATA,USB_REMOVAL,LParam(@SendData));
    end;
  end
  else
    Message.Result := DefWindowProc(FHandle,Message.Msg,
      Message.wParam,Message.lParam);
end;

第四步，在窗口加上一个自定义的windows消息接收函数，窗口初始化的时候把handle传给TusbTest类。

FUsbTest := TUsbTest.Create(self);
FUsbTest.FHandle := Handle;

procedure TFrm_Main.Recv_WMCopyData(var Msg: TWMCopyData);
begin
  if Msg.From = USB_INSERTION then
    SBar1.Panels[0].Text := 'usb设备接入....';
  if Msg.From = USB_REMOVAL then
    SBar1.Panels[0].Text := 'usb设备移出....';
end;

最后补上DEV_BROADCAST_DEVICEINTERFACE这个结构的定义。

type
  // Win API Definitions
  PDevBroadcastDeviceInterface  = ^DEV_BROADCAST_DEVICEINTERFACE;
  DEV_BROADCAST_DEVICEINTERFACE = record
    dbcc_size : DWORD;
    dbcc_devicetype : DWORD;
    dbcc_reserved : DWORD;
    dbcc_classguid : TGUID;
    dbcc_name : char;
  end;

GUID和USB_INTERFACE，USB_INSERTION，USB_REMOVAL都是自定义的常量。

最后我有个疑问，不同的设备，GUID应该是不一样的吧，为什么我公司用的读卡器的GUID，回家之后能识别我自己的通用的读卡器的拔插？希望大牛解惑，欢迎拍砖。