1. Reklam


    1. kyra
      viki
      Tenda
      lastworld
      silkroadcilar
      3

CD-ROM Açma - Kapama Programı


  1. Unforgiven

    Unforgiven rank8

    Kayıt:
    13 Temmuz 2009
    Mesajlar:
    3.506
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    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")