发信人: delphifan()
整理人: windfire(2000-12-05 19:19:34), 站内信件
|
如何弹出、关闭光驱
西安 梁 明
好多多媒体软件都能打开、关闭光驱自如，在Delphi中如何实现呢？
其实，这是一个十分简单的工作，向MCI发送一条mciSendString指令即可！
小插曲---
=================================================================
=>
一位好心的网友来信告诉我，我的这个程序有问题。其实,我立即又测试了
一下，没有问题。当
然，要用此函数，必须添加“mmsystem”单元，这位好心的网友不知是不是
忘记添加此项。另外，
我是在WinNT4环境下调试通过的，如果在Win98的环境下有问题请再来信关
心我，为了Delphi的明
天，希望大家关心这个网站，关心Delphi，谢谢各位好心人！！！
<================================================================
=
下面是源代码：
procedure TForm1.OpenCDRomClick(Sender: TObject);
begin
//打开光驱
//。。。
mciSendString('Set cdaudio door open wait', nil, 0, handle);
//。。。
end;
procedure TForm1.CloseCDRomClick(Sender: TObject);
begin
//关闭光驱
//。。。
mciSendString('Set cdaudio door closed wait', nil, 0, handle)
;
//。。。
end;
窗体As text代码
(无内容)
版主：梁明
日期：1999-03-12-02：09
E-mail：[email protected]
--
※ 修改:．delphifan 于 Mar 13 00:42:31 修改本文．[FROM: 202.100.29.199]
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.100.29.199]
|
|