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

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

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

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

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

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