CD Rom Açıp Kapatma

Bu derste Visual Basic'te CD-Rom açıp kapatmanın nasıl olabileceğini kodlarıyla anlatacağım.

Bu derste Visual Basic'te CD-Rom açıp kapatmanın nasıl olabileceğini kodlarıyla anlatacağım.

Öncelikle forma 2 tane buton ekliyoruz. İsimlerimi "cd rom aç" ve "cd rom kapat" olarak değiştiriyoruz

İlk olarak formun GENERAL bölümüne şu kodları ekleyelim:


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

    Dim Ret As Long

    Dim RetStr As String



CD-ROM AÇ butonunun içine şunları yazalım:


Ret = MCISendString("Set CDAudio Door Open", RetStr, 127, 0) 'Bu Cd yi çıkartır.



CD-ROM kapat butonunun içine ise şu kodları ekleyelim:


Ret = MCISendString("set CDAudio door closed", RetStr, 127, 0) 'Bu da Cd yi takar.



Kolay gelsin.
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

visual studio 2008 kullanıyorum, sizin yazdığınız kodları kopyala yapıştırla bile denedim olmuyor nerde hata yaptığımı anlayamıyorum, lütfen yardımcı olur musunuz?
abi 2. cdrom için ne yapıcaz
kaydedemiyorum yardım
bu kodlar yanlış gösterior...

Yukarı Git