قاعدة البيانات المستخدمة للتوضيح وفى إعداد المثال التالى (Microsoft Access 2003):
فى هذا الموضوع سيتم توضيح طريقة:
1) إغلاق وإعادة تشغيل الجهاز من خلال أكسس
وذلك باستخدام ExitWindowsEx وهى دالة (API) ، حيث تأخذ، معاملين لأول لتحديد الوظيفة المطلوبة والثانى غير مستخدم، وتعريفها كالتالى:
Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
المعامل المستخد يأخذ القيم
Private Const EWX_LOGOFF = 0 Private Const EWX_SHUTDOWN = 1 Private Const EWX_REBOOT = 2
ويتم استخدام المعامل المناسب حسب الإحتياج، كذلك يمكن أستخدام
Private Const EWX_FORCE = 4
وذلك لإغلاق التطبيقات المفتوحة مباشرتاً ثم إغلاق (Windows) دون الانتظار لحفظ أى بيانات فى تطبيقات مفتوحة وغير محفوظة (مثلاً لو ملف ورد مفتوح وغير محفوظ ستفقد البيانات).
ويجب قبل أستخدام هذه الدالة ضبط الامتياز للبرنامج كى يستطيع إغلاق الويندوز من خلال الدالة (AdjustTokenPrivileges) ويتم ذلك فى Form_Load
وشكراً
