Kayıt
13 Temmuz 2009
Mesajlar
3.500
Beğeniler
0
Yeni bir form oluşturun 2 adet Button ekleyin.

En başa şunu tanımlayın;

Kod:
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Button1_Click olayına şu kodu yazın;

Kod:
mciExecute("set cdaudio door open")
Button2_Click olayına şu kodu yazın;

Kod:
mciExecute("set cdaudio door closed")
 
Yukarı Alt