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

[طيباوي ابو علي1]

بـــســـم اللــــه الـــرحمـــــن الـــرحيـــــــــــــــــــم
الصـــــلاة والســـــلام علـــى رســـــول الله

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



uses MMSystem;// http://www.djelfa.info/vb/showthread.php?t=1556705
procedure TForm1.Button1Click(Sender: TObject);
begin// http://www.djelfa.info/vb/showthread.php?t=1556705
mciSendString('Set cdaudio door open wait', nil, 0, handle);// http://www.djelfa.info/vb/showthread.php?t=1556705
end;// http://www.djelfa.info/vb/showthread.php?t=1556705

// http://www.djelfa.info/vb/showthread.php?t=1556705
procedure TForm1.Button2Click(Sender: TObject);
begin// http://www.djelfa.info/vb/showthread.php?t=1556705
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;// http://www.djelfa.info/vb/showthread.php?t=1556705

[taleb2011]

بارك الله فيك وجزاك الله خير

[achra]

بارك الله فيك وجزاك الله خير ♥ ♥