الدالة التي تمكنك من إغلاق الجهاز أو إعادة تشغيله

[issamdnn]

جرب تغيير قيمة المتحول EWX_SHUTDOWN

procedure TForm1.Button1Click(Sender: TObject);


begin
ExitWindowsEx(EWX_SHUTDOWN,0);
end;

:bye1:

[الحويطي]

وكمان هذه التعليمة .... إذا سمح صاحب الموضوع

winexec('Shutdown -s -t 00',SW_Hide);

بالتوفيق للجميع

[kachwahed]

مرحبا بكم في المنتدى ومرحبا بمشاركاتكم.
يستحسن وضع الكود في إطاره المخصص (باستعمال زر الكود):
// Declaration:

procedure ExitWindowsDialog(ParentWnd: HWND); stdcall; external 'Shell32.dll' index 60;

// Example:

ExitWindowsDialog(0);
في انتظار المزيد، بالتوفيق.

[issamdnn]

شكراً أخي الحويطي وأنا أشكر لك مشاركتك في موضوعي أنت والأخ kachwahed

وأنا وأعوذ بالله من كلمة أنا لا أمتلك العلم الكامل في عالم البرمجة فمنذ 7 سنين وأنا أمارسها ولكني كل يوم أشاهد شيئ جديد ... وما أتمناه هو أن نشاهد مبرمجين محترفين عرب تضاهي برامجهم البرامج الغربية ... وإن كان في علمي

أي مساهمة ولو بسيطة في هذه الناحية فأنا أحمد الله على ذلك ...
والشكر لكم مجدداً وأيضاً لإدارة المنتدى ...
والله الموفق

[B.M.AbdelAziZ]

مواضيع سابقة :
تحكم في تشغيل نظامك
http://www.delphi4arab.com/forum/showthread.php?t=159

برمج الوقت الذي تريد فيه إطفاء جهازك
http://www.delphi4arab.com/forum/showthread.php?t=1848

والسلام عليكم

[issamdnn]

خي العزيز شكراً للتنبيه على المواضيع ولكني لم أطلع على كل المواضيع الموجودة في المنتدى ... وعلى جيميع الأحوال شكراً للتنبيه...