发信人: 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论坛
█┃印锋┃█
█┗━━┛█
██████
|
|