ممكن كود يعمل يغلق الجهاز

Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub ShutDown()
ExitWindowsEx EWX_SHUTDOWN, 0&
End Sub

لاستخدام الكود اكتب

ShutDown

السلام عليكم ورحمة الله وبركاته

كل ماعليك هو تكوين زر أمر في الفورم وتقوم بالنقر عليه مرتين متتاليتين

وتكتب الكود التالي:-

(call shell(c:\windows\rundll32.exe user,exitwindows

أخوك مبرمج بسيط

الموضوع بالتفصيل الممل هنا:

http://www.al-ebda3.info/ib/index.php?showtopic=1791

هل تعمل هذه الطريقه على XP انها تعمل LOG OFF فقط