unit1.pas

来自「用Delphi捕获U盘插入或者拔出事件。」· PAS 代码 · 共 46 行

unit   Unit1;   
    
  interface   
    
  uses   
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,   
      Dialogs,   AppEvnts,   ExtCtrls,   StdCtrls;   
    
  type   
      TForm1   =   class(TForm)   
          Label1:   TLabel;   
      private   
          {   Private   declarations   }   
          procedure   WMDeviceChange(var   Msg:   TMessage);   message   WM_DEVICECHANGE;   
      public   
          {   Public   declarations   }   
      end;   
    
  var   
      Form1:   TForm1;   
    
  implementation   
    
  {$R   *.dfm}   
    
  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;   
    
  end.