关于软驱及光驱(100分)

  • 主题发起人 主题发起人 张远
  • 开始时间 开始时间

张远

Unregistered / Unconfirmed
GUEST, unregistred user!
1。如何截获读写软驱及光驱的消息?
2。怎样禁止读写软驱及光驱?
 
不知道
概念:好象要涉及vxd...,有时间查查DDK文档.
要不就是用HOOK
听听
 
应该用hook吧, eyes快来:-)
 
??????
 
我记不清了,
好像是
cn_devicechang
消息
你查一查help
 
下面这个函数可以显示是否就绪。(From Borland)
function DiskInDrive(Drive: Char): Boolean;
var ErrorMode: word;
begin
if Drive in ['a'..'z'] then Dec(Drive, $20);
if not (Drive in ['A'..'Z']) then
raise EConvertError.Create('Not a valid drive ID');
ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
try
{ drive 1 = a, 2 = b, 3 = c, etc. }
if DiskSize(Ord(Drive) - $40) = -1 then
Result := False
else
Result := True;
finally
SetErrorMode(ErrorMode);
end;
end;
 
检查CD-ROM或是磁盘是否有过变化:
functionGetDiskVolSerialID(cDriveName:char):DWord;
  var
  dwTemp1,dwTemp2:DWord;
  begin
  GetVolumeInformation(PChar(cDriveName+′:ι′),
  Nil,
  0,
  ΝResult,
  dwTemp2,
  dwTemp2,
  Nil,0);
  end;
 
关注结果……
 
参见<a herf="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=178252">如何编程实现截取另一个应用程序在运行过程中从软盘读取的数据</a>
 
Sorry! {B-)
参见<a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=178252">如何编程实现截取另一个应用程序在运行过程中从软盘读取的数据</a>
 
多人接受答案了。
 

Similar threads

后退
顶部