//检测U盘插入、拔出 测试通过1、新建工程;2、定义一个私有过程procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;