شرح فـــتـــح و إغـــلاق مــحـــرك الأقـــراص الـــمـــضـــغـــوطـــــة

بـــســـم اللــــه الـــرحمـــــن الـــرحيـــــــــــــــــــم

الصـــــلاة والســـــلام علـــى رســـــول الله



فـــتـــح و إغـــلاق مــحـــرك الأقـــراص الـــمـــضـــغـــوطـــــة

ســـــــــــــيــــــــــدي روم



uses MMSystem;



procedure TForm1.Button1Click(Sender: TObject);

begin

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

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

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

end;

via مدونة لكل الجزائريين و العرب http://ift.tt/1lYoiUK