تابع 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
پاسخ با نقل قول
علاقه مندی ها (بوک مارک ها)