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.

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