CDROM Açma- Kapama

'Programlama' forumunda ...... tarafından 7 Ağu 2009 tarihinde açılan konu

Konu etiketleri:
  1. ......

    ...... Misafir

    Forma iki tane command ekleyin ve şu kodları yazın...


    Kod:
    Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    
    Private Sub Command1_Click()
    mciExecute ("set cdaudio door open") 'Cdrom aç
    End Sub
    
    
    
    Private Sub Command2_Click()
    mciExecute ("set cdaudio door closed") ' Cdrom kapat
    End Sub
     

Bu Sayfayı Paylaş