# 请mail给我sample,thanks

Posted by MR. Wang on December 21, 1998 at 19:01:35:

In Reply to: 你不会是想写一个进退片的程式吧 posted by 笋子 on December 21, 1998 at 14:40:34:

: 你可以呼叫 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
: 笋子之前也有写一个进/退片程式，有兴趣的话，可以
: 写信来跟笋子要哦....

as title, email addr=>simonwang@bigfoot.com

Follow Ups: