1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

CD-Rom sürücüyü açmak ve kapamak


  1. Redefine

    Redefine Old School olduser rank8

    Kayıt:
    21 Kasım 2007
    Mesajlar:
    3.152
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    [​IMG]

    lll :idea: lll CD-Rom sürücüyü açmak ve kapamak lll :idea: lll

    CD-Rom sürücüyü açmak ve kapamak için çok küçük bir işlem yapıyoruz.O kadar küçük ki sizde şaşırıcaksınız :D

    uses kısmına MMSystem unitini ekleyin.

    Kod:
    mciSendString('Set cdaudio door open wait', nil, 0, handle); //aç
    mciSendString('Set cdaudio door closed wait', nil, 0, handle); //kapa