U盘拦截消息，非无限时钟枚举

这样还是很费系统资源的，就写了这个简单的例程。
通过 系统发出的事件消息 来检测移动设备插入与移除事件，就相当于窗口事件那种 好理解把？
没任何技术含量。。
文件保存目录:C:\
.如果真 (句柄 ＝ _启动窗口.取窗口句柄 ())
.如果真 (消息号 ＝ 537)
.如果真 (lParam ≠ 0)
info ＝ 指针到字节集 (lParam, 12)
dbch_devicetype ＝ 取字节集数据 (info, #整数型, 5)
调试输出 (dbch_devicetype)
.如果真 (dbch_devicetype ＝ 2) ' DBT_DEVTYP_VOLUME
' 是移动设备
.如果真 (wParam ＝ 32768) ' 准备就绪
调试输出 (“移动设备准备就绪了！”)
' 添加你想要的代码
p ＝ GetDisk ()
文件_枚举1 (p, 编辑框1.内容, &偷, 真)
.如果真结束
.如果真 (wParam ＝ 32772)
调试输出 (“移动设备被移除！”)