# 你不会是想写一个进退片的程式吧

Posted by 笋子 on December 21, 1998 at 14:40:34:

In Reply to: 如何利用VB控制让CD-ROM退片 posted by 阿昌 on December 21, 1998 at 02:07:01:

你可以呼叫 winmm.dll 来做这些动作，
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Sub cmdEject_Click()
mciSendString "set MyMedia door open", vbNullString, 0, 0 '打开光碟机
End Sub
Private Sub cmdDoorClose_Click()
mciSendString "set MyMedia door closed", vbNullString, 0, 0 '关闭光碟机
End Sub
笋子之前也有写一个进/退片程式，有兴趣的话，可以
写信来跟笋子要哦....

Follow Ups:

- Re: 你不会是想写一个进退片的程式吧 歪妹 20:51:11 1/30/99 (0)
- Re: 你不会是想写一个进退片的程式吧 Bob Chang 11:38:40 12/22/98 (0)
- 请mail给我sample,thanks MR. Wang 19:01:35 12/21/98 (0)