uses mmSystem;//打开
mciSendString('Set cdaudio door open wait', nil, 0, Handle);
//关闭
mciSendString('Set cdaudio door closed wait', nil, 0, Handle);
mciSendString('Set cdaudio door open wait', nil, 0, Handle);
//关闭
mciSendString('Set cdaudio door closed wait', nil, 0, Handle);
解决方案 »
- 数据库是ACCESS,SQL语句:update 如何写
- 在线等:看似简单的问题:关于Label控件,解决不解决都给分,解决了还将加分!!
- 写文本的简单问题-写空格和黑方框
- 是他叫着要分的,不关我的事情。我也没办法;
- 如何通过程序访问邮箱,也就是说在程序窗体中填写好用户名和密码登录后在网页中打开。
- 请教各位老大,看看下面的SQL错误.
- 如何在 serverSocket 和 clientSocket 之间传送一个记录
- 57分!!!如何用Socket向HTTP服务器发送请求和接到响应?
- 有关DELPHI6中使用SKINENGINE???
- 请问个位DELPHI高手?
- 走到这,不进来瞧一下,真的逛为人生!不信,瞧瞧!
- 坐台结账:为什么数据集不能刷新?系统说没有唯一的索引...TMD,我明明是建了索引的。但我发现其它现象-=>>
mciSendString('Set cdaudio door open', nil, 0, Handle);
//关闭
mciSendString('Set cdaudio door closed', nil, 0, Handle);