تحكم في تشغيل نظامك

[ahcene]

اللهم صلي و سلم على محمد و على ال محمد كما صليت و سلمت على ابراهيم و على ال ابراهيم انك حميد مجيد

السلام عليكم و رحمة الله تعالى و بركاته

اما بعد

فلنضيف مزيدا من الفائدة الى هذا المنتدى قررت ان اعطي هذه الاكواد المتحكمة في الجهاز و شكرا .

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);

اما الان فانني استودعكم الله و امل اني افدتكم ولو بشيئ صغير

و املي دعوة صالحة و ردتا صارحة و رسالة راسخة

و السلام و عليكم و رحمة الله تعالى و بركاته.