تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فتح واغلاق محرك الأقراص
#1
كاتب الموضوع : AhmedEssawy


كود :
Imports System.Runtime.InteropServices
Imports System.Text
...

Public Shared Sub Main()
Dim result As Integer = mciSendString("set cdaudio door open", Nothing, 0, IntPtr.Zero)
result = mciSendString("set cdaudio door closed", Nothing, 0, IntPtr.Zero)
End Sub

Protected Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal mciCommand As String, ByVal returnValue As StringBuilder, ByVal returnLength As Integer, ByVal callback As IntPtr) As Integer
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عرض محركات الأقراص فى combobox RaggiTech 0 411 17-10-12, 07:03 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم