U盘插入拔出提示
2008-11-09 15:11
387 查看
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.
相关文章推荐
- 解决U盘无法打开,提示请将磁盘插入驱动器H的方法
- U盘插入到Windows7电脑会提示扫描并修复U盘请问如何取消
- win7插入u盘提示格式化
- U盘插入提示使用驱动器光盘之前需要格式化
- U盘插入电脑提示格式化的原因
- 打开U盘时提示请插入磁盘,东芝,SSS6692-B4量产过程
- Win7系统打开U盘提示请将磁盘插入驱动器怎么办?
- U盘插入电脑提示要格式化
- 解决“U盘插上能识别,双击后就提示请插入磁盘驱动器”问题
- 教你一招:解决u盘插入计算机时提示格式化,如何恢复u盘中的文件
- U盘不能卸载,直接拔掉再插入提示:“目录损坏
- 插入U盘时Win7总提示扫描并修复U盘的解决办法
- U盘插入拔出提示
- U盘插入电脑,提示“无法识别的设备” 的维修
- 插入U盘时Win7总提示扫描并修复U盘的解决办法
- .U盘插入电脑提示未知的USB设备unkown device
- Vista系统下插入U盘无法识别提示无法找到驱动
- U盘插电脑上去只显示“可移动磁盘”,打开的时候提示请插入移动可移动磁盘
- U盘插入电脑后,提示需要格式化U盘如何解决?
- win电脑插入u盘移动硬盘提示usb无法识别怎么办怎么修复