Buka Tutup CD ROOM Dengan Delphi

Malem agan lama gak posting nie hehe kangen juga he.e. . . . 

kali ini saya akan sekedar memberi tahu cara membuat tombol open CD ROOM dengan delphi tentunya,,,jika untuk laptop hanya bisa di pakai untuk open saja sedangkan untuk komputer kayaknya c bisa di pakai untuk open dan close CD ROOM. kmari langsung saja kita praktekan.

Desain form seperti gambar 1.1

setelah itu double klik pada "Open CD" lalu masukan scrip seperti berikut di bawah begin :

try

mciSendString('Set cdaudio door open', nil, 0, handle);

except

end;

dan setelah itu double klik pada "Close CD" lalu masukan scrip seperti berikut di bawah begin :

try

mciSendString('Set cdaudio door closed', nil, 0, handle);

except

end;

selesai dech coba jalankan dan lihat hasilnya hehe semoga bermanfaat,,EH iya jagan lupa menambahkan MMSYSTEM di usesnya biar bisa di excute.