设为首页收藏本站 Access中国

开启辅助访问切换到宽版

官方QQ群

Office中国论坛/Access中国论坛»论坛首页 › Access 资料区 › Access控件/工具/资源 › Access API大全 › ACCESS 技巧千寻：打开/关闭光驱(中级Api类)

发新帖

查看: 3090|回复: 5

上一主题

下一主题

ACCESS 技巧千寻：打开/关闭光驱(中级Api类)

电梯直达

跳转到指定楼层

1^#

发表于 2002-5-2 09:05:00 | 只看该作者回帖奖励

回帖奖励

|倒序浏览 |阅读模式

Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long)

'打开光驱

'mciSendStringA "Set CDAudio Door Open", 0&, 0, 0

'关闭光驱

'mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0

本帖被以下淘专辑推荐:

· ACCESS技巧|主题: 40, 订阅: 0

分享到: QQ好友和群 QQ空间 腾讯微博 腾讯朋友

收藏0 分享 淘帖1 订阅

回复

使用道具举报

2^#

发表于 2002-5-2 16:41:00 | 只看该作者

API是什么啊,access里怎樣用啊

回复支持反对

使用道具举报

3^#

楼主| 发表于 2002-5-2 18:03:00 | 只看该作者

先将以上代码全部放在新建模块中
然后按ctrl+G打开调试窗口,粘贴以下一行代码,就可打开光驱,很有成感啊!

mciSendStringA "Set CDAudio Door Open", 0&, 0, 0

回复支持反对

使用道具举报

4^#

发表于 2009-9-27 11:36:04 | 只看该作者

谢谢，收藏了。

回复支持反对

使用道具举报

5^#

发表于 2013-11-13 20:08:22 | 只看该作者

好用很神奇，看来access可以做好多事。非常感谢大熊的分享，真是高人啊

回复支持反对

使用道具举报

6^#

发表于 2013-11-13 20:12:33 | 只看该作者

我按照大熊的语句做的实例，看看吧

本帖子中包含更多资源

您需要登录才可以下载或查看，没有帐号？注册

x

回复支持反对

使用道具举报

发新帖

|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )

GMT+8, 2025-1-6 06:54 , Processed in 0.119236 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表