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

تابع mciSendString وظیفه ی باز بسته کردن سی دی رام را بر عهده دارد.ابتدا باید تابع را در قسمت General فرم تعریف کنیم به این صورت:

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

کد باز کردن درب سی دی رام:

&mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0

کد بستن درب سی دی رام:

&mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0

این تابع با دستورات متنی کار می کند.اگر متن پیغام را تغییر دهید تابع کاری را انجام نخواهد داد. به حرف من اعتماد نکنید و خودتان انجام دهید و خروجی را ببینید