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.

目录
相关文章
|
存储 JSON 监控
eBPF 深度探索: 高效 DNS 监控实现(下)
eBPF 深度探索: 高效 DNS 监控实现(下)
921 0
|
11月前
|
运维 应用服务中间件 Linux
自动化运维:使用Ansible进行批量配置管理
【10月更文挑战第36天】在现代的IT基础设施中,高效和可靠的系统管理变得至关重要。本文将介绍如何使用Ansible这一强大的自动化工具来简化运维任务,包括安装、配置、部署应用程序以及管理系统更新。我们将探讨Ansible的核心概念,并通过实际代码示例展示其应用。通过阅读本文,读者将获得使用Ansible改善日常运维工作流程的实用知识。
126 1
|
安全 前端开发 NoSQL
如果让你设计一个接口,你会考虑哪些问题?
接口设计需关注参数校验、扩展性、幂等性、日志、线程池隔离、异常重试、异步处理、查询优化、限流、安全性、锁粒度和避免长事务。入参与返回值校验确保数据正确性;考虑接口扩展性以适应不同业务需求;幂等设计防止重复操作;关键接口打印日志辅助问题排查;核心接口使用线程池隔离确保稳定性;异常处理中可采用重试机制,注意超时控制;适合异步的场景如用户注册后的通知;并行查询提升性能;限流保护接口,防止过载;配置黑白名单保障安全;适当控制锁粒度提高并发性能;避免长事务影响系统响应。
328 2
|
数据安全/隐私保护 Docker 容器
容器镜像服务 Docker镜像的基本使用
容器镜像服务 Docker镜像的基本使用
54746 4
解决go项目引进etcd/clientv3的一个报错grpc版本过高
解决go项目引进etcd/clientv3的一个报错"google.golang.org/grpc/naming: module google.golang.org/grpc@latest found (v1.53.0), but does not contain package google.golang.org/grpc/naming " 如果你的go版本高于1.17 请忽略这个处理办法,使用"go.etcd.io/etcd/client/v3" 因为etcd v3版本接口和最新的grpc兼容,所以不用再像网上历史文章那样去处理,直接替换etcd包地址即可。
2680 0
|
存储 关系型数据库 MySQL
PolarDB MySQL 5.7/RDS 5.7升级到PolarDB MySQL 8.0最佳实践
升级概述PolarDB MySQL 5.7/RDS 5.7 向 8.0 升级过程中,经常遇到的问题主要是性能问题、语法兼容性问题,以及周边组件是否的支持,查询的性能问题一般是由于优化器升级导致执 行计划有变,此类问题需要对性能低下的语句进行针对性的性能优化,但性能问题基本不会引发业务报错以及代码的改写问题,此类问题不在本文讨论范围之内。本文主要讨论真实的兼容性问题,此类问题需要在数据库升级过程中,
1204 0
|
XML 移动开发 Android开发
activity中加载fragment的控件]
fragment它自己的中文意思:碎片; 一个可以将activity拆分成几个完全独立封装的可重用的组件,每个组件有自己的生命周期和ui布局。
activity中加载fragment的控件]
|
Web App开发 移动开发 边缘计算
阿里云李松林:全球实时传输网络GRTN在互动直播中技术实践
2021年6月9日,亚太内容分发大会暨CDN峰会在北京举行,阿里云智能边缘云技术专家李松林受邀参加互动直播论坛,分享基于阿里云边缘云节点打造的全球实时传输网络GRTN的设计思路、技术原理、特质与应用实践,以及面向直播应用客户提供稳定可靠的业务体验。
1616 0
阿里云李松林:全球实时传输网络GRTN在互动直播中技术实践
|
XML 数据格式 测试技术
Activiti 6.x【6】StartEvent(上)
版权声明:转载注明出处就OK的说,有些东西会转载,都会注明的说= =如果有冒犯麻烦见谅 https://blog.csdn.net/Pan1458689676/article/details/82662203 ...
1563 0