سه شنبه ۳ ارديبهشت ۱۳۸۷, ۱۶:۰۲
باز هم مثل همیشه کد تابع رو توی یه ماژول تعریف کنید :
Public 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برای باز شدن
CDROM این کد رو بنویسید:(&)Private Sub OpenCD_Click
&mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0
End Sub
برای بسته شدن
CDROM هم کد زیر رو بنویسید :()Private Sub CloseCD_Click
&mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0
End Sub
همینطور که می بینید این تابع از دستورات ساده چند رسانه ای برای باز کردن سی دی رام استفاده می کنه