unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, AppEvnts, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
procedure Button1Click(Sender: TObject);
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 :='U盘插入';
MessageBox(0,'注意!U盘已插入!!!','AutoCopy Information',MB_ICONASTERISK and MB_ICONINFORMATION);
end;
32772:
begin
myMsg :='U盘拔出';
MessageBox(0,'注意!U盘已取走!!!','AutoCopy Information',MB_ICONASTERISK and MB_ICONINFORMATION);
end;
end;
end;
===========================================
// 取U盘盘符代码
使用delphi程序实现U盘盘符的获取其实不是很难,不过对于新手来说可能有点困难,把代码贴出来,供大家学习
============================================
procedure TForm1.Button1Click(Sender: TObject);
var
buf:array [0..MAX_PATH-1] of char;
m_Result:Integer;
i:Integer;
str_temp:string;
begin
m_Result:=GetLogicalDriveStrings(MAX_PATH,buf);
for i:=0 to (m_Result div 4) do
begin
str_temp:=string(buf[i*4]+buf[i*4+1]+buf[i*4+2]);
if GetDriveType(pchar(str_temp)) = DRIVE_REMOVABLE then
begin
ShowMessage(str_temp+'盘为U盘');
ListBox1.Items.Add(str_temp);
end;
end;
end;
=========================================//磁盘类型常量参考
DRIVE_UNKNOWN = 0;
{$EXTERNALSYM DRIVE_UNKNOWN}
DRIVE_NO_ROOT_DIR = 1;
{$EXTERNALSYM DRIVE_NO_ROOT_DIR}
DRIVE_REMOVABLE = 2;
{$EXTERNALSYM DRIVE_REMOVABLE}
DRIVE_FIXED = 3;
{$EXTERNALSYM DRIVE_FIXED}
DRIVE_REMOTE = 4;
{$EXTERNALSYM DRIVE_REMOTE}
DRIVE_CDROM = 5;
{$EXTERNALSYM DRIVE_CDROM}
DRIVE_RAMDISK = 6;
分享到:
相关推荐
使用delphi程序实现U盘盘符的获取其实不是很难,不过对于新手来说可能有点困难,把代码贴出来,供大家学习
1.QQ:513187410 2.保证无毒 3.简单,方便,实用 4.实例可以自行改用 5.如有非法,本人无法律责任,由改动代码人负责! 6.需要更多本人作品,查找标签“朱建强” 7.请下载,杀毒后再使用!
监视U盘插入\拔出动作,同时可返回U盘盘符
检测U盘 插入 拔出 Delphi7.0
Delphi 读取 网卡U盘序列号 将网上的几个例子集成在一起,并测试通过,
通过delphi取U盘系列号,其实很简单的,给真正需要的人吧
Delphi监视U盘源码,实现监视U盘的插入和拔出,并且还可以禁止/允许向U盘内写入
delphi源码U盘自动识别盘符id状态
主要介绍了C#获取U盘序列号的方法,涉及C#针对硬件底层信息操作的相关技巧,具有一定参考借鉴价值,需要的朋友可以参考下
Delphi U盘锁 获取U盘序列号,初始密码为:yzz,为防止暴力破解,密码输入3次不成功,计算机将重新启动,解锁状态一切移动设备可在本机使用(包括光驱),.使用结束请重新锁定。如果启用授权功能,授权的移动设备可以...
delphi U盘管理 拷贝 复制
delphi自动弹出式提示窗体,可以像QQ一样弹出提示框的哦
运行该软件,U盘插入被识别后即刻删除。 用法:下载该文件到本地机器,双击即可。 有问题站内联系
禁用U盘和光驱(Delphi操作注册表 源码) 设置后重启就生效了。 比较简单,也有参考价值。现在Delphi越来越凋零了,嗨。。。
Delphi使用Word自动化服务器插入数据到Word程序中,这个程序演示了使用Word作为自动化服务器,Delphi地自动化控制器是如何将一个查询结果插入到word文档中,返回应用参数.这个调用在英文和法文版的 Word中相同。对...
获取U盘序列号的代码 Delphi代码。
实现“安全删除硬件”相同的功能,都是调用windows系统接口,一种复杂些,一种简单些!
像360 金山一样检查U盘, delphi代码。
Delphi2007典型开发实例--在DBGrid中插入下拉组合框源代码!
一个简单的DELPHI自动关机源码