Delphi检测GUID确定的设备是否在线

  //检测GUID任何设备插入拔出

unit DeviceDetect; 

interface

uses
  Windows, SysUtils, Classes, Messages, Forms;

type
  PDevBroadcastHdr = ^DEV_BROADCAST_HDR;
  DEV_BROADCAST_HDR = packed record
    dbch_size: DWORD;
    dbch_devicetype: DWORD;
    dbch_reserved: DWORD;
  end;

  PDevBroadcastDeviceInterface = ^DEV_BROADCAST_DEVICEINTERFACE;
  DEV_BROADCAST_DEVICEINTERFACE = record
    dbcc_size: DWORD;
    dbcc_devicetype: DWORD;
    dbcc_reserved: DWORD;
    dbcc_classguid: TGUID;
    dbcc_name: short;
  end;

  TDeviceDetect = class(TComponent)
  private
    FWindowHandle: HWND;
    FOnUSBArrival: TNotifyEvent;
    FOnUSBRemove: TNotifyEvent;
    FUsbGuid: String;//the Usb Device's GUID String.
    procedure WndProc(var Msg: TMessage);
    function USBRegister: Boolean;

  protected
    proced