精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>多媒体及相关设备>>[文章]如何弹出、关闭光驱

主题:[文章]如何弹出、关闭光驱
发信人: 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]

[关闭][返回]