+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : الدالة التي تمكنك من إغلاق الجهاز أو إعادة تشغيله (/showthread.php?tid=1374)
الدالة التي تمكنك من إغلاق الجهاز أو إعادة تشغيله - issamdnn - 07-12-2009
جرب تغيير قيمة المتحول EWX_SHUTDOWN
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
ExitWindowsEx(EWX_SHUTDOWN,0);
end;الدالة التي تمكنك من إغلاق الجهاز أو إعادة تشغيله - الحويطي - 07-12-2009
وكمان هذه التعليمة .... إذا سمح صاحب الموضوع
winexec('Shutdown -s -t 00',SW_Hide);
بالتوفيق للجميع
الدالة التي تمكنك من إغلاق الجهاز أو إعادة تشغيله - kachwahed - 07-12-2009
مرحبا بكم في المنتدى ومرحبا بمشاركاتكم.
يستحسن وضع الكود في إطاره المخصص (باستعمال زر الكود):
كود :
// Declaration:
procedure ExitWindowsDialog(ParentWnd: HWND); stdcall; external 'Shell32.dll' index 60;
// Example:
ExitWindowsDialog(0);الدالة التي تمكنك من إغلاق الجهاز أو إعادة تشغيله - issamdnn - 08-12-2009
شكراً أخي الحويطي وأنا أشكر لك مشاركتك في موضوعي أنت والأخ kachwahed
وأنا وأعوذ بالله من كلمة أنا لا أمتلك العلم الكامل في عالم البرمجة فمنذ 7 سنين وأنا أمارسها ولكني كل يوم أشاهد شيئ جديد ... وما أتمناه هو أن نشاهد مبرمجين محترفين عرب تضاهي برامجهم البرامج الغربية ... وإن كان في علمي
أي مساهمة ولو بسيطة في هذه الناحية فأنا أحمد الله على ذلك ...
والشكر لكم مجدداً وأيضاً لإدارة المنتدى ...
والله الموفق
الدالة التي تمكنك من إغلاق الجهاز أو إعادة تشغيله - محمد عبد العزيز - 08-12-2009
مواضيع سابقة :
تحكم في تشغيل نظامك
http://www.delphi4arab.net/forum/showthread.php?tid=159
برمج الوقت الذي تريد فيه إطفاء جهازك
http://www.delphi4arab.net/forum/showthread.php?tid=1848
والسلام عليكم
الدالة التي تمكنك من إغلاق الجهاز أو إعادة تشغيله - issamdnn - 08-12-2009
خي العزيز شكراً للتنبيه على المواضيع ولكني لم أطلع على كل المواضيع الموجودة في المنتدى ... وعلى جيميع الأحوال شكراً للتنبيه...