通知系统光盘已弹出，但不打开光驱门，100分求答案

Question

通知系统光盘已弹出，但不打开光驱门，100分求答案谢谢大家关于光盘插入后，系统做了什么事 方面的资料，大家知道请告诉我，谢谢

Answer 1

参考：
http://www.comprg.com.cn/wz048.htm

Answer 2

谢谢这位朋友，可是我还没有学过C语言，最好是用VB实现
还有一个问题，是接着我上一个问题的，就是光盘已经“假”退出了，里面的文件也不能访问了，这时怎样能刷新光驱让他又能读了

Answer 3

使用api函数cddoor来控制光驱门的开和关十分简单
cddoor函数是安装windows时自带的winmm.dll文件中包含的
private declare function cddoor lib "winmm.dll" alias "mcisendstringa"
(byval ipstrcommand as string,_控制命令参数
byval ipstrreturnstring as string ,byval ureturnlength as long,byval hwndcallback as long ) as long 语法
call cddoor("set cdaudio door closed",0,0,0) 用以关闭光驱门
call cddoor("set cdaudio door open",0,0,0) 用以打开光驱门

Answer 4

这个问题如果不好回答，那我就换个方向，希望大家帮我这个忙，就是能不能干扰用户，让他不能读出光盘中的资料，比如explorer是怎么知道光驱中有盘的，这个能不能拦截

Answer 5

看来是暂时是没有人能帮我了，那我只好用另一种方法了，
如果哪位朋友有解决的方法，请email我，谢谢
[email protected]我的想法是，让光盘插入后，我的程序发现光盘序列号不是允许的光盘列表中的号，就让资源管理器不能访问光盘的盘符，算帐了

Answer 6

要让系统找不到盘，恐怕是比较困难的 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1805326

Answer 7

Private Sub ExitCdRom_Click(Index As Integer)
Dim Ret As Long                                                                                                 
Dim RetStr As String
Ret = mciSendString("set CDAudio door open", RetStr, 0, 0)
End Sub
Private Sub CloseCdRom_Click(Index As Integer)
On Error Resume Next
result = mciSendString("set CDAudio door closed", ReturnString, 127, 0)
End Sub

Answer 8

//就是能不能干扰用户，让他不能读出光盘中的资料，比如explorer是怎么知道光驱中有盘的，这个能不能拦截可以，写shell扩展参考：
http://www.csdn.net/develop/read_article.asp?id=3487