بـــســـم اللــــه الـــرحمـــــن الـــرحيـــــــــــــــــــم
الصـــــلاة والســـــلام علـــى رســـــول الله
فـــتـــح و إغـــلاق مــحـــرك الأقـــراص الـــمـــضـــغـــوطـــــة
ســـــــــــــيــــــــــدي روم
كود:
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
( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
2014-03-21, 23:01
فـــتـــح و إغـــلاق مــحـــرك الأقـــراص الـــمـــضـــغـــوطـــــة
العرض العادي
