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

最新推荐文章于 2024-04-01 20:42:36 发布

yueyahe

最新推荐文章于 2024-04-01 20:42:36 发布

阅读量4k

点赞数

分类专栏： WDM驱动开发学习文章标签： delphi destructor initialization constructor integer system

本文链接：https://blog.csdn.net/yueyahe/article/details/644660

版权

这个博客介绍了如何使用Delphi创建一个组件TDeviceDetect，该组件能够监测指定GUID的USB设备的插入和移除。通过注册窗口消息处理，当系统检测到设备连接或断开时，会触发相应的事件。用户可以设置UsbGuid属性来指定要监控的设备，并在OnUSBArrival和OnUSBRemove事件中处理设备状态变化。

摘要由CSDN通过智能技术生成

//检测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