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

[(سیدشریفی)]

باسلام
چگونه میتوان بازوبسته شدن درب سی دی رام را از طریق کدنویسی فهمید .
:)

[yasha_162000]

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

Dim DoorOpen As Boolean
If DoorOpen = False Then
mciSendString("set cd door open", CStr(0), 0, 0)
DoorOpen = True
Else
If DoorOpen = True Then
mciSendString("set cd door closed", CStr(0), 0, 0)
DoorOpen = False
End If
End If

**********
form load
**********


mciSendString("close all", CStr(0), 0, 0)
mciSendString("open cdaudio alias cd wait shareable", CStr(0), 0, 0)
mciSendString("set cd time format tmsf wait", CStr(0), 0, 0)

DoorOpen = False

[(سیدشریفی)]

باتشکر از جوابی که به من دادید
ولی با این کد میتوان درب سی دی رام را بازوبسته کرد .
منظور من این است که وقتی کاربر بطور دستی یا از طریق برنامه دیگری درب سی دی رام را باز کرد ما از طریق برنامه خودمان به این موضوع پی ببریم و بدانیم که درب سی دی رام باز شد یا بسته شد .
:roll:

[yasha_162000]

:sorry:

[yasha_162000]

سلام آقا یک مثال توپ پیدا کردم اون کاری رو که می خوای انجام می ده فقط با visual basic 6 هست ولی هطمن به دردت می خوره

[(سیدشریفی)]

جناب yasha_162000
من باز هم در این برنامه اون چیزی را که میخواهم پیدا نمیکنم .
یا اصلا این برنامه آن را ندارد یا من نتوانستم آن را پیدا کنم .
:گیج:
:confy2:
:mad: