控制光驱开关模块

.子程序 开关光驱
.参数 光驱盘符, 文本型, , 只能提供盘符字母，不要有“:”
.参数 打开, 逻辑型
.局部变量 A, MCI_OPEN_PARMS
.局部变量 B, MCI_SET_PARMS
.局部变量 C, 文本型

A.lpstrDeviceType ＝ “cdaudio”
C ＝ 到大写 (取文本左边 (光驱盘符, 1))
.如果真 (取反 (取代码 (C, ) ≥ 65 且 取代码 (C, ) ≤ 90))
返回 ()
.如果真结束
A.lpstrElementName ＝ C ＋ “:”
.如果真 (mciSendCommand (0, 2051, 8961, A) ＝ 0)
.如果 (打开)
mciSendCommand1 (A.wDeviceID, 2061, 16640, B)
.否则
mciSendCommand1 (A.wDeviceID, 2061, 16896, B)
.如果结束

.如果真结束
mciSendCommand2 (A.wDeviceID, 2052, 0, 0)
易语言控制光驱开关模块例子。