应用程序获得USB设备插入或者拔出通知

最新推荐文章于 2021-04-30 01:32:55 发布

guyuntech

最新推荐文章于 2021-04-30 01:32:55 发布

阅读量1.8k

点赞数

分类专栏：应用文章标签： delphi

本文链接：https://blog.csdn.net/radicwei/article/details/8752581

版权

应用专栏收录该内容

1 篇文章 0 订阅

订阅专栏

系统设备变化，系统向应用程序发出WM_DEVICECHANGE消息，应用程序注册一个消息处理函数，来获取设备变化通知.

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   :='USB设备插入'; 
              Label1.Caption:=myMsg 
          end; 
      32772: 
          begin 
              myMsg   :='USB设备拔出';  
              Label1.Caption:=myMsg; 
          end; 
      end; 
end; 
  
end.