Visual Basic de CD-Rom açmak/kapatmak
Forma eklenecekler : 2 adet düğme
cod:
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Command1_Click()
mciExecute ("Set CDAudio door Open")
End Sub
Private Sub Command2_Click()
mciExecute ("Set CDAudio door closed")
End Sub
Private Sub Form_Load()
Command1.Caption = "Aç"
Command2.Caption = "Kapat"
End Sub
Mesaj 24.11.2011 07:43:28 tarihinde Rserit tarafından düzenlenmiştir.
ÖLÜM BIR YOK OLUŞ DEğIL,YENIDEN DOğUŞTUR !
Teşekkürler Halil. Küçük ama pratik şeyler. Ancak bir önerim var. Bu tür pratik şeyleri daha düzenli biçimde yayınlarsan, yani, biçem olarak biraz daha uzun olursa, bu pratik bilgiler bir çok kullanıcıya faydalı olabilir. Aksi taktirde pek faydası görülmez.
anladım.d oncelıkle benı hatırladın mı bı ara facede hep soru soruordum sana ibrahim halil bolat. sende hıc yardımcı olmuordun.s.s
ÖLÜM BIR YOK OLUŞ DEğIL,YENIDEN DOğUŞTUR !
Evet, tanıyorum Halil. Bazen öyle işlerin çoğalıyor, üst üste geliyor ki, kimseye yardım edemez duruma geliyor insan. Bir gün sende bunu göreceksin, emin ol.
haklı olabılırsın 
sana ozelden bı soru sorabılır mıyım msn felan ver
ÖLÜM BIR YOK OLUŞ DEğIL,YENIDEN DOğUŞTUR !