程序是否有可能捕获当前计算机插入了Ｕ盘这样的事件？

Question

如题！

Answer 1

CSDN有bug，输分值时输入全角数字不提示报错，也不转成正常的数字，直接变为0分帖。

Answer 2

检测有没有多余的硬盘增加
U盘插入有WM_DEVICECHANGE消息出现

Answer 3

  private
  procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
    { Private declarations }procedure TForm1.WMDeviceChange (var Msg: TMessage);
var
   myMsg : String;
begin
   Case Msg.WParam of
   32768:
     begin
       myMsg :='U盘插入';
       Label1.Caption:=myMsg;
     end;
   32772:
     begin
       myMsg :='U盘拔出';
       Label1.Caption:=myMsg;
     end;
end;
end;

Answer 4

监测U盘插入或拔走的代码用DELPHI可以实现。3楼的代码就可以实现。封USB设备，并且程序退出后USB接口还是不能用，也可以实现。DELPHI可以控制USB接口的开关。