从光驱拷贝文件到硬盘的问题...(上张帖100分没结果这次一起结)

Question

你的returnstring有没有分配空间

Answer 1

我对mciSendString这个函数不是很了解.你有例子吗?(从光驱拷贝光盘上所有文件到硬盘的.)

Answer 2

哈哈 哥们
Private 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
Private Sub Command1_Click()
    If Command1.Caption = "打开" Then
        Command1.Caption = "关闭"
        retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
    Else
        retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
        Command1.Caption = "打开"
    End If
End Sub