+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (https://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي والتعامل مع النظام و الذاكرة (https://delphi4arab.net/forum/forumdisplay.php?fid=20)
+--- الموضوع : تحكم في تشغيل نظامك (/showthread.php?tid=108)
تحكم في تشغيل نظامك - ahcene - 26-03-2008
اللهم صلي و سلم على محمد و على ال محمد كما صليت و سلمت على ابراهيم و على ال ابراهيم انك حميد مجيد
السلام عليكم و رحمة الله تعالى و بركاته
اما بعد
فلنضيف مزيدا من الفائدة الى هذا المنتدى قررت ان اعطي هذه الاكواد المتحكمة في الجهاز و شكرا .
1-كود اطفاء الجهاز:
اضف shellapi تحت القسم uses و ادرج زر عادي و اكتب التالي في حدث الضغط على الزر
كود :
ExitWindowsEx(EWX_FORCEIFHUNG or ewx_force,0) ;2-كود اعادة التشغيل :
اضف shellapi تحت القسم uses و ادرج زر عادي و اكتب التالي في حدث الضغط على الزر
كود :
ExitWindowsEx(EWX_FORCE or ewx_force,0);او
كود :
ExitWindows(EW_RESTARTWINDOWS, 0 );3-كود لفتح و غلق مشغل الاسطوانات الليزرية:
اضف MMSystem تحت القسم uses و ادرج زر عادي و اكتب التالي في حدث الضغط على الزر
للفتح:
كود :
mciSendString('Set cdaudio door open wait', nil, 0, 0);للغلق:
كود :
mciSendString('Set cdaudio door closed wait', nil, 0, 0);اما الان فانني استودعكم الله و امل اني افدتكم ولو بشيئ صغير
و املي دعوة صالحة و ردتا صارحة و رسالة راسخة
و السلام و عليكم و رحمة الله تعالى و بركاته.