USB设备插入和拔出(50)

我想写个delphi代码，捕获USB设备，u盘插入和拔出，并不针对所有的设备，有例子吗？谢谢！

procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;procedure TF_main.WMDeviceChange(var Msg: TMessage);var myMsg : String;begin Case Msg.WParam of 32768: begin myMsg :='U盘插入'; MessageBox(0,'注意!U盘已插入!!!','AutoCopy Information',MB_ICONASTERISK and MB_ICONINFORMATION); end; 32772: begin myMsg :='U盘拔出'; MessageBox(0,'注意!U盘已取走!!!','AutoCopy Information',MB_ICONASTERISK and MB_ICONINFORMATION); end; end;end;