一个Button1，即能开开盒，又有关盒？(10分)

M

myxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-09

• #1

FORM上面放一个Button1
点一下Button1
mciSendString('Set cdaudio do
or open wait', nil, 0, handle);打开光驱
，再点一下Button1
mciSendString('Set cdaudio do
or closed wait', nil, 0, handle);关闭光驱
呵呵，蛮无聊的

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-09

• #2

无聊

 

悲

悲酥清风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-09

• #3

知道无聊，你还乱扔垃圾？
污染环境~~~不知道有没有小朋友被砸到。。。

 

M

myxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-09

• #4

哈哈哈，不好意希，哈哈哈，想了半天，想不出来，只好扔将上来

 

M

myxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-10

• #5

不要浪费10分了，小也是分嘛？

 

D

doxpix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-10

• #6

晕。
好像我是第二次回答你的问题了。
button1.tag=1-button1.tag;//就是加上这一句
if button1.tag=0 then
mciSendString('Set cdaudio do
or open wait', nil, 0, handle)
else
mciSendString('Set cdaudio do
or closed wait', nil, 0, handle);

 

M

myxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-16

• #7

接受答案了.