精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>文件>>检测光驱或软驱的变化!

主题:检测光驱或软驱的变化!
发信人: delphilxh(先锋)
整理人: teleme(2001-05-14 12:19:15), 站内信件
检测光驱: 
 函数声明: 
  procedure WMDEVICECHANGE(var msgx :Tmessage);message WM_DEVICECHANGE; 

procedure Tform1.WMDEVICECHANGE(var msgx :Tmessage); 
const 
  DBT_DEVICEARRIVAL=$8000; 
  DBT_DEVICEREMOVECOMPLETE=$8004; 
begin 
  inherited; 
  case msgx.WParam of 
    DBT_DEVICEARRIVAL:edit1.text :='有了!'; 
    DBT_DEVICEREMOVECOMPLETE:edit1.text :='取走了'; 
  end; 
end; 
检测软驱则用 
if disksize(1)=-1 表示软驱A中没有软盘 
if disksize(2)=-1 表示软驱B中没有软盘 



----
██████ 
█┏━━┓█ Delphi先锋网欢迎您!!!!
█┃之先┃█  北京网易Delphi论坛 
█┃印锋┃█ 
█┗━━┛█ 
██████ 

              

[关闭][返回]