如何控制CD-ROM的弹出或关闭?(100分)

mayi · 2000-01-25

我正在做一个播放MP3的软件，想实现控制CD-ROM的弹出和关闭，请问如何实现?请告诉我，最好有源码。

delphiwolf · 2000-01-26

你的分花的好冤枉，   mciSendString('Set cdaudio door open wait', nil, 0, handle);   mciSendString('Set cdaudio door closed wait', nil, 0, handle);

wlq · 2000-01-27

这个问题看着好眼熟，呵呵 看来您把200分全花在上面了 程序员大本营光盘，上面有很不错的MP3和CD的播放源程序，正好满足您的要求 另外到深度历险去找找 实在没辙我给您发一个

祝好运！

郑宇轩 · 2000-01-27

procedure TsystemForm.Button28Click(Sender: TObject); begin   mcisendstring('set  cdaudio door open',nil,0,handle);//Open end; procedure TsystemForm.Button29Click(Sender: TObject); begin   mcisendstring('set cdaudio door closed',nil,0,handle);//Close end;

anbeel.lee · 2000-01-27

同意上，请在uses中添加mmsystem。

hsw · 2000-01-27

有意思

TeamD · 2000-01-27

看来你是没有去过 www.csdn.net去转转了。里面的就有类似的例子。

Boat · 2000-01-29

能否将源码妹我一个。谢！ Boat@777.net.cn 我正准备做一个 MP3 播放程序送给朋友！ 1、Uses  MMSystem； 2、Use two Buttons：   OpenBtn.OnClick:     MciSendString('Set CDAudio Door Open',Nil,0,Handle);   CloseBtn.OnClick:     MciSendString('Set CDAudio Door Closed',Nil,0,Handle);

red · 2000-01-29

如果有多个光驱的话,怎么选择任一个弹出呢?超级解霸也没做到的.

pyh_jerry · 2000-04-19

我可不可以也要一个。 上面几位大虾，说的方法很好，我以前的做法是： 在“弹出”按钮的ONCLICK事件中加入语句，使MEDIAPLAYER1。DEVICEID的值为 CDA也就是说，骗过MEDIAPLAY，的自动判断功能。让电脑以为是正在放CD。 也就可实现放MP3时弹出CD—ROM了。这个办法有效，但有旁门左道之嫌。 可别学哦！ 看来，要向各位大虾学习。

WuWZY · 2000-04-21

可是如何确定光驱是打开还是关闭呢? 这里有一个不确定的因素! 不判断原有状态是不好的!

KERRIGAN · 2000-05-01

建议你研究一下Win32API的关于设备驱动函数 如：DeviceIOControl。 它们会帮你做许多事情的。

wjiachun · 2000-08-05

接受答案了.

如何控制CD-ROM的弹出或关闭?(100分)

mayi

Unregistered / Unconfirmed

delphiwolf

Unregistered / Unconfirmed

wlq

Unregistered / Unconfirmed

郑宇轩

Unregistered / Unconfirmed

anbeel.lee

Unregistered / Unconfirmed

hsw

Unregistered / Unconfirmed

TeamD

Unregistered / Unconfirmed

Boat

Unregistered / Unconfirmed

red

Unregistered / Unconfirmed

pyh_jerry

Unregistered / Unconfirmed

WuWZY

Unregistered / Unconfirmed

KERRIGAN

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads