DELPHI U盘插入拔出提示

最新推荐文章于 2016-07-19 16:07:00 发布

郁闷的坦然

最新推荐文章于 2016-07-19 16:07:00 发布

阅读量1k

点赞数

分类专栏： DELPHI

DELPHI 专栏收录该内容

38 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的简单程序，该程序能够监听并响应U盘插入和移除事件，并通过资源管理器打开U盘所在驱动器。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, 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.