如何控制光驱开关(100分)

tengt · 2001-08-10

程序执行时能自动判断光驱状态，如是打开的就关门；如果是关闭的就开门。 （不管有无光盘）。执行后退出，不驻留。

wjfgttt · 2001-08-10

在user中加MMSystem open: mciSendSting('set cdaudio door open',nil,0,handle); close: mciSendSting('set cdaudio door closed wait',nil,0,handle); 至于怎样检测到光驱的状态，还请高人指点。

sunhuiNO1 · 2001-08-11

以下代码可以控制不同的光驱 st:='e:/'; procedure TMainForm.OpenCD(st:string); var   mp : TMediaPlayer; begin   mp:= TMediaPlayer.Create(nil);   mp.Visible:= false;   mp.Parent:= Application.MainForm;   mp.DeviceType:= dtCDAudio;   mp.FileName :=st;   mp.Open;   with MP do     begin       mciSendCommand(MP.DeviceID,MCI_SET,MCI_SET_DOOR_OPEN, 0);           end;   mp.Close;   mp.free; end;

DragonPC_??? · 2001-08-13

一般来说，获求移动存储设备状态用的是  DiskFree 函数，返回 -1 表示没有准备好

omvm · 2001-08-13

这个问题在DFW上很多，贴之前最好先搜一下。省很多。

omvm · 2001-08-13

另外，好象目前还不能判断光驱的状态，据说微软在这个问题上有Bug。

tengt · 2001-08-14

用TmediaPlayer控件是不行的，要涉及到HAL

kingkong · 2001-08-19

//打开光驱 mciSendString('Set cdaudio door open wait', nil, 0, handle); //关闭光驱 mciSendString('Set cdaudio door closed wait', nil, 0, handle) 监视光驱中是否有光盘拦截消息WM_DEVICECHANGE即可！ //响应该消息 procedure Tform1.WMDEVICECHANGE(var msgx :Tmessage); const   DBT_DEVICEARRIVAL=$8000;   DBT_DEVICEREMOVECOMPLETE=$8004; begin   inherited;   case msgx.WParam of     DBT_DEVICEARRIVAL:Caption :='有了！';     DBT_DEVICEREMOVECOMPLETE:Caption :='取走了';   end; end;

lai-sha · 2002-02-09

如何检测到多个光驱

富翁中的穷人 · 2003-12-23

但是还是没有达到检测光驱门开关的情况, [

] 我也想知道如何知道光驱门是打开的还是关闭的,请高手指教.

如何控制光驱开关(100分)

tengt

Unregistered / Unconfirmed

tengt

Unregistered / Unconfirmed

wjfgttt

Unregistered / Unconfirmed

sunhuiNO1

Unregistered / Unconfirmed

DragonPC_???

Unregistered / Unconfirmed

omvm

Unregistered / Unconfirmed

omvm

Unregistered / Unconfirmed

tengt

Unregistered / Unconfirmed

kingkong

Unregistered / Unconfirmed

lai-sha

Unregistered / Unconfirmed

富翁中的穷人

Unregistered / Unconfirmed

Similar threads