باز و بسته کردن در سی دی رام

خوب کسانی که با api viewr آشنایی دارن اون رو باز کنن .
حالا عبارت mcisendstring رو تایپ کنن و کد مریوط به اون رو کپی کنید .
برنامه ی ما از یک فرم به نام form1 و دو دکمه به نام های command1 , command2 تشکیل شده .
حالا کد زیر رو که قبلا کپی کرده بودید داخل general مربوط به form1 کپی کنید.(نتیجه به شکل زیر خواهد بود)

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

برای command1 کد زیر رو بنویسید.

() private sub command1_click
mcisendstring "set cdaudiodoor open wait",0,0,0
End sub

برای command2 کد زیر رو بنویسید

()Private Sub Command2_Click
mcisendstring "set cdaudiodoor close wait", 0, 0, 0
End sub