delphi编程实现弹出、关闭CD-ROM驱动器

2016-02-19 17:46 8 1 收藏

在这个颜值当道，屌丝闪边的时代，拼不过颜值拼内涵，只有知识丰富才能提升一个人的内在气质和修养，所谓人丑就要多学习，今天图老师给大家分享delphi编程实现弹出、关闭CD-ROM驱动器，希望可以对大家能有小小的帮助。

【 tulaoshi.com - 编程语言】

　　如果你想做一个CD播放器的话，那本技巧一定少不了。这是一个控制CD-ROM驱动器门弹出和关闭的方法，首先需要在uses部分加入mmsystem，接着增加两个TButton按钮，在按钮事件里写入下列语句，记住在调用完毕后一定要显示或判断returnstring，要不程序将出错：

procedure TForm1.Button1Click(Sender: TObject);var returnstring:pchar;begin//弹出returnstring:=驱动器打开错误;mciSendString(set CDAudio door open, returnstring, 127, 0);label1.Caption :=returnstring;end; procedure TForm1.Button2Click(Sender: TObject);var returnstring:pchar;begin//关闭returnstring:=驱动器关闭错误;mciSendString(set CDAudio door closed, returnstring, 127, 0);label1.Caption :=returnstring;end;

来源:http://www.tulaoshi.com/n/20160219/1616018.html

看过《delphi编程实现弹出、关闭CD-ROM驱动器》的人还看了以下文章更多>>

Delphi编程实现Ping操作

标签：编程语言网络编程

在Delphi中使用TidIcmpClient控件可以非常简单的实现图形界面的Ping！新建一个工程，命名为 PingGUI.dpr ，窗口命名为“frmPing”，加入如下组件： lstReplies: TListBox; ICMP: TIdIcmpClient; Panel1: TPanel; btnPing: TButton; &nbs...

Delphi编程启动关闭热启动

标签：编程语言网络编程

如果你是要制作一个有密码保护的屏幕保护程序，那么关闭热启动将是非常必要的，否则被人一按热启动，关闭了你的程序，那么不是起不了保护作用吗？要使系统的热启动键（Ctrl+Alt+Del）失效，使用以下语句 SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0); 要恢复系统的热启动键（Ctrl+Alt+Del），使用以下语句 ...

Bitlocker驱动器加密怎么用

Bitlocker驱动器加密怎么用 Bitlocker加密简介： Bitlocker简单来说这个组件是通过一种软硬结合的方式 (BitLocker与硬件TPM芯片配合)共同保护硬盘数据，最大亮点就在于即便将硬盘串接到其他电脑上，也休想读取任何信息。BitLocker不但能够为任意分区加密，而且还加入了对U盘、移动硬盘的加密支持，而这也被称之为Bitlocker ...

Win8系统关闭开机自动扫描驱动器的方法

标签： windows系统

Win8系统关闭开机自动扫描驱动器的方法 1、在Win8桌面下按WIN+R调出运行对话框，然后输入regedit并回车，运行注册表编辑器; 2、然后我们再定位到HKEY_LOCAL_MACHItuLaoShi.comNESYSTEMCurrentControlSetControlSession Manager在右边右击BootExecute键值项并将其数值清空，最后按F5键刷新注册表就可以了。 Win8系统还...

delphi编程实现检测声卡存在

标签：编程语言网络编程

如果你是做一些多媒体播放器之类的程序时，为了完善系统的容错性，就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsystem ，接着在窗体创建时检测声卡： procedure TForm1.FormCreate(Sender: TObject);var i:Integer;begini := auxGetNumDevs();if i= thenlabel1.Capti...

查看更多精彩>>