开发者社区> lzhdim> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

U盘插入拔出提示

简介: Unit Unit1; Interface Uses   Windows, Messages, SysUtils, Variants, classes, Graphics, Controls, Forms,   Dialogs, AppEvnts, ExtCtrls, StdCtrls, S...
+关注继续查看
Unit Unit1;

Interface

Uses

  Windows, Messages, SysUtils, Variants, classes, Graphics, Controls, Forms,

  Dialogs, AppEvnts, ExtCtrls, StdCtrls, ShellAPI;

Type

  TForm1 = Class(TForm)

    Button1: TButton;

  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;

  i: char;

Begin

  Case Msg.WParam Of

    32768: Begin

        ShowMessage('U盘插入');

        For i := 'D' To 'Z' Do

          If GetDriveType(PChar(i + ':"')) = DRIVE_REMOVABLE Then Begin

            ShellExecute(Handle, 'open', 'Explorer.exe', PChar(i + ':"'), Nil, SW_SHOWNORMAL);

          End;

      End;

    32772: Begin

            ShowMessage('U盘退出')

    End;

  End;

End;

End.

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
Win10 64位 win7 64位 驱动安装不上,提示 文件的哈希值不在指定的目录文件中。此文件可能已损坏或被篡改
Win10 64位 win7 64位 驱动安装不上,提示 文件的哈希值不在指定的目录文件中。此文件可能已损坏或被篡改如何解决
0 0
电脑里的记事本文件永久删除怎么办
小楠电脑上的记事本文件被玩电脑的弟弟删除了,后来发现那个记事本里有很多资料和帐号,他赶紧去电脑回收站找了半天也没找到。问了弟弟才知道他不小心按到Shift+Delete,那可是永久删除啊!把他气得够呛… 他也只能去网上找一些恢复的办法,网上提供的办法都大同小异,而且那些带有恢复功能的应用基本都是收费的,这让他很不开心,慢慢就失去了寻找的兴趣。
1118 0
U盘分区信息清除
diskpart select disk 1 clean 清除选中(优U)盘的所有信息;
331 0
winhex中判断+MBR+DBR+EBR方法
<p><span style="color:blue;">BR</span><span style="color:blue;">、</span><span style="color:blue;"> EBR</span><span style="color:blue;">、</span><span style="color:blue;">DBR</span><span style="color:
1864 0
u盘插入电脑不显示容量,也打不开的一种解决方法
卸载原有的驱动(可能时间会很久,因为驱动可能不正常,很久才响应)。 用HP U盘格式化工具 V2.0.6.EXE 进行格式化(我的不卸载原有驱动,这步检测不到u盘,搞了无数遍,程序都是卡死在那里)。
1372 0
U盘装WIN7安装程序无法定位现有分区,也无法创建新的系统分区(转载)
  我最近装WIN7,格了盘之后,总是出现提示“安装程序无法定位现有分区,也无法创建新的系统分区”,想了很多办法,总是无法解决,后来经过多方查找,于昨天晚上终于把系统装上了。     我用U盘装系统,是因为我的光驱读盘不好,有时读不出来,有时又能读出来,所以才想到用U盘来装系统。当然了,你的电脑得支持U盘启动才行,下面开始说处理过程,网上能搜到很多的。现在我把我的处理过程总结如下:
1136 0
【技术贴】解决U盘无法复制:磁盘被写保护,请去掉写保护或使用另一张磁盘。
解决U盘无法复制:磁盘被写保护,请去掉写保护或使用另一张磁盘、注册表找不到StorageDevicePolicies项、U盘被写保护。   -------------------------以下复制进新建txt,另存为1.
1800 0
+关注
lzhdim
人在20岁以意志力著称,在30岁以智慧取胜,在40岁则靠的是理智的判断。 一个人只有时刻保持幸福快乐的感觉,才会使自己更加热爱生命,热爱生活。只有快乐,愉快的心情,才是创造力和人生动力的源泉;只有不断自己创造快乐,与自己快乐相处的人,才能远离痛苦与烦恼,才能拥有快乐的人生。
文章
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载