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