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

2016-02-19 17:46 1 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;

来源:https://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），使用以下语句 ...

delphi编程实现检测声卡存在

标签：编程语言网络编程

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

Bitlocker驱动器加密怎么用

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

delphi编程实现动态创建别名

标签：编程语言网络编程

对于BDE会话期对象来说，BDE别名特别重要，许多方法都需要传递一个数据库的别名作为参数。TSession提供了管理BDE别名的功能。但是作者往往等到要发布程序时才发现，你的程序由于找不到别名而无法运行，必须在一台已经装了BDE管理程序的机上才能用，你一定非常失望。不要紧，只要在程序中加入以下语句，你的程序就又可以执行。 A...

查看更多精彩>>