吴天明版主！请问！[讨论]

windows2002

我是api 新手，请问如何才能够利用API函数控制光驱的开和关？？
我设计的控件已经发到您的邮箱！
我那天已经收到您的回信！！
您修改的真好！！谢谢！！
但控件在调用api函数指ocx出错！
为什么？？


再次表示感谢！！[em09]

WTM1

windows2002小姐：
谢谢！！你在软件中公开了身份证号码！依此推断阁下是正值妙龄！！还有你的照片很漂亮！！

1、你的界面并不是我一个人修改的，当然对你的谢意我会一一转达！
2、但控件在调用api函数指ocx出错！==好像描述有问题！！请发我的邮箱！
3、如何才能够利用API函数控制光驱的开和关？？==我可以回答！！

'程序说明：
'   本例使用API函数 CDdoor 来控制光驱门的开和关
'程序十分简单，由于 CDdoor 函数自身包含了对异常
'错误的处理机制，因此这个程序的通用性很高，你可
'以把这段代码移植到你的程序中，实现某些多媒体播
'放器所常用的开关光驱的功能。
'-------------------------------------------
Option Explicit
'说明：CDdoor函数是安装WINDOWS时所自带的winmm.dll文件中包含的函数
Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _
( _
ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long _
) As Long

'CDOpen用来标示光驱开与关的状态
Dim CDOpen As Boolean

Private Sub Command1_Click()
On Error Resume Next

'如果关闭则打开，并且按钮做相应变化
If CDOpen = False Then
Call CDdoor("set CDAudio door open", 0, 0, 0)
CDOpen = True
Command1.Caption = "点击关闭光驱"
Else
'否则关闭
Call CDdoor("set CDAudio door closed", 0, 0, 0)
CDOpen = False
Command1.Caption = "点击打开光驱"
End If
End Sub

Private Sub Form_Load()
CDOpen = False
Call CDdoor("set CDAudio door closed", 0, 0, 0)
End Sub


CDdoor函数是安装WINDOWS时所自带的winmm.dll文件中包含的函数，我们只须先加入如下的声明后就能引用这个API函数：
　　Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _
　　　( _
　　　ByVal lpstrCommand As String, _ 　　　　　　String，这是控制命令参数
　　　ByVal lpstrReturnString As String, _　　　　String，这是返回值
　　　ByVal uReturnLength As Long, _　　　　　　　Long，返回值长度参数
　　　ByVal hwndCallback As Long _
　　　) As Long

　　引用的语法是：Call CDdoor("set CDAudio door closed", 0, 0, 0)　　用以关闭光驱门

　　　　　　　　　Call CDdoor("set CDAudio door open", 0, 0, 0)　　　用以打开光驱门

　　程序中使用了一个布尔型变量来标示当前光驱门开与关的状态。

　　如果配合检测光驱是否存在的函数一起使用，此程序的通用性会更高。
希望你加强学习，感谢你给我来信，并千里飞鸿给我寄来你的玉照，感谢感谢！！
希望在以后的时间中我们共同学习，在这里永远交流！！
只是很奇怪为什么？？你的信是8月写的！9月从台湾专机到香港转大陆！9.20日我才收到！！很遗憾！！
你8月份去香港或台湾了吗？？为什么从哪里来信！！
不过我还是很感谢！！
常联系！！

浪上飞郑

打扰两位的闲谈了。
我听了很多的API，总不得其门而入，今天看了这个函数，总算明白API的强大无比了。
还有，恨自己不是个妙龄女郎+漂亮

WTM1

浪上飞郑 :
不要太………………！~~！~~
想要学api！我以后会把api的资料传上来，大家共同！！学习！