如何知道计算机上插有 U盘 或 移动硬盘等设备???怎莫监测?????

编程的西红柿2 2003-07-01 07:01:29
如何知道计算机上插有 U盘 或 移动硬盘等设备???怎莫监测?????
...全文
61 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
Dhammacakkhu 2003-07-01
  • 打赏
  • 举报
回复
可以用消息,给你贴一段zswang兄的:

//思路是监测驱动器的改变~~
//插来插去,测试了一下,得到的数值~~

type
TForm1 = class(TForm)
Memo1: TMemo;
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);
begin
inherited;
case Msg.WParam of
32772: Caption := '关闭';
32768: Caption := '就绪';
end;
end;
hch_45 2003-07-01
  • 打赏
  • 举报
回复
UINT GetDriveType(

LPCTSTR lpRootPathName // address of root path
);

Value Meaning
0 The drive type cannot be determined.
1 The root directory does not exist.
DRIVE_REMOVABLE The drive can be removed from the drive.
DRIVE_FIXED The disk cannot be removed from the drive.
DRIVE_REMOTE The drive is a remote (network) drive.
DRIVE_CDROM The drive is a CD-ROM drive.
DRIVE_RAMDISK The drive is a RAM disk.
  • 打赏
  • 举报
回复
想知道U盘 什莫时候插上和拔下来
Dhammacakkhu 2003-07-01
  • 打赏
  • 举报
回复
使用GetDrivetype,返回2代表是移动设备
Dhammacakkhu 2003-07-01
  • 打赏
  • 举报
回复
使用GetDrivetype,返回2代表是移动设备
sixgj 2003-07-01
  • 打赏
  • 举报
回复
要干吗呢?得到硬件信息?

1,184

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧