你好,欢迎来到电脑编程技巧与维护杂志社! 杂志社简介广告服务读者反馈编程社区  
合订本订阅
 
 
您的位置:杂志经典 / 计算机安全与维护
Delphi编程实现U盘锁(二)
 

3.1  U盘插入及密码登陆的判定

Windows系统中,计算机上添加或者删除U盘时,将触发系统的WM_DEVICECHANGE消息。在过程中首先判断是否密码登陆关闭U盘锁功能,如果未登陆在定时器处理过程中再进行U盘授权的判定。

//捕获新添加删除硬件消息处理过程用于检测U盘的插入:

procedure TForm1.WMDeviceChange(var Message: TMessage);

const

     DBT_DEVICEARRIVAL = $8000 ;  //有新设备的消息编号

Begin

//用户已密码登陆U盘锁已关不卸载U

if LogIn then            

   exit;

if DisMountCmdOk then   //如果已经发出卸载命令,则不再响应该消息

   exit;

case Message.wParam of

     DBT_DEVICEARRIVAL:     //插入设备了

        begin

          DriverVol:=Driver;              //获取刚插入U盘的盘符

          GetUSBInfo(DriverVol,UsbId);    //获取U盘序列号

          DisMountCmdOk:=true;         //置卸载命令

          timer1.Enabled:=true;           //卸载USB设备

        end;

end;

inherited;

end;

当系统检测到U盘插入后,首先进行第一种密码登录判定,如果未登录再启用定时器在定时器处理过程对U盘进行第二种授权判定。

  推荐精品文章

·2024年9月目录 
·2024年8月目录 
·2024年7月目录 
·2024年6月目录 
·2024年5月目录 
·2024年4月目录 
·2024年3月目录 
·2024年2月目录 
·2024年1月目录
·2023年12月目录
·2023年11月目录
·2023年10月目录
·2023年9月目录 
·2023年8月目录 

  联系方式
TEL:010-82561037
Fax: 010-82561614
QQ: 100164630
Mail:gaojian@comprg.com.cn

  友情链接
 
Copyright 2001-2010, www.comprg.com.cn, All Rights Reserved
京ICP备14022230号-1,电话/传真:010-82561037 82561614 ,Mail:gaojian@comprg.com.cn
地址:北京市海淀区远大路20号宝蓝大厦E座704,邮编:100089