برمج الوقت الذي تريد فيه إطفاء جهازك

الأولى

hutdown
الثانية:reboot
الثالثة:log off
الرابعة:force
الخامسةower off

كود :
procedure getshutdown[U]privilege[/U];//this procedure is used to get the shutdown or reboot or poweroff privilege 
var
 hdlProcessHandle:cardinal;
  hdlTokenHandle:cardinal;
   tmpLuid:LUID_AND_ATTRIBUTES;
     tkp:TOKEN_PRIVILEGES;
       tkpNewButIgnored:TOKEN_PRIVILEGES;
          lBufferNeeded:cardinal;
begin
  tmpluid.Attributes:=SE_PRIVILEGE_ENABLED;
   hdlProcessHandle:= GetCurrentProcess;
    OpenProcessToken(hdlProcessHandle,(TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY),hdlTokenHandle);
      LookupPrivilegeValue('','SeShutdownPrivilege',tmpluid.Luid);
        tkp.PrivilegeCount:=1;
          tkp.Privileges[0]:=tmpluid;
            AdjustTokenPrivileges(hdlTokenHandle,False,tkp,16,tkpNewButIgnored,lBufferNeeded);
end;

* هذا الكود في الواقع هو ليس لإيقاف أو إعادة تشغيل الكمبيوتر أو ... ولكنه كود ضروري استعماله خاصة مع windows2000 أو windowsXp وهو يستعمل للحصول على إمتياز إيقاف أو إعادة تشغيل الكمبيوتر لأنه دون الحصول على الإمتياز لا يمكنك تطبيق الأمر...

و الآن نكون قد وصلنا إلى الخطوة الأهم المتمثلة في كيفية إيقاف أو إعادة تشغيل الكمبيوتر ...

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
     if not (exitwindowsex(ewx_shutdown,0)) then begin   //Shutdown computer
         getshutdownprivilege;
         exitwindowsex(ewx_shutdown,0);
         end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

     if not (exitwindowsex(ewx_reboot,0)) then begin   //Restaring computer
         getshutdownprivilege;
         exitwindowsex(ewx_reboot,0);
         end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
     if not (exitwindowsex(ewx_poweroff,0)) then begin   //Power off computer
         getshutdownprivilege;
         exitwindowsex(ewx_poweroff,0);
         end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if not (exitwindowsex(ewx_logoff,0)) then   //Log off computer
     exitwindowsex(ewx_logoff,0);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
exitwindowsex(ewx_force,0);
end;

- الدالة المستعملة لإيقاف أو إعادة تشغيل الكمبيوتر أو ... هي الدالة Exitwindowsex و نجد فيها الخيارات التالية:

Ewx_shutdown:لإيقاف تشغيل الكمبيوتر.. لتحقيق ذلك لابد من الحصول على الإمتياز

Ewx_Reboot:لإعادة تشغيل الكمبيوتر.. لتحقيق ذلك لابد من الحصول على الإمتياز

Ewx_poweroff:لإيقاف تشغيل الكمبيوتر مباشرة أي دون إظهار الرسالة ... لتحقيق ذلك لابد من الحصول على الإمتياز و لابد أن يكون جهازك يدعم إيقاف

التشغيل المباشر و إذا لم يكن الجهاز يدعم هذه الخاصية سيتم إعادة التشغيل فقط

Ewx_force:لإغلاق جميع التطبيقات العاملة حاليا ... وهو خيار غير آمن

Ewx_logoff:لقطع الإتصال مع الشبكة و تسجيل خروج المستخدم الحالي

الآن و عند تشغيل البرنامج تلاخظ أنه سيحدث عند النقر على:

الزر الأول:إيقاف التشغيل
الزر الثاني:إعادة التشغيل
الزر الثالث:قطع الإتصال مع الشبكة
الزر الرابع:غلق جميع التطبيقات
الزر الخامس:إيقاف التشغيل المباشر

[FONT=Tahoma]
- بمعرفة كل هذا ، يمكنكم إخواني وضع برنامج لتنفيد أي مهمة بتوقيت معين يختاره المستخدم .

بالتوفيق