主题：beforecloseproject事件请教

你手动关闭的话，就赋值 vars("手动关闭") = true

如果是其它触发关闭的时候，就允许其关闭呗

全局代码

Public Const SC_CLOSE As Integer = &Hf060
Public Const MF_ENABLED As Integer = &H0
Public Const MF_GRAYED As Integer = &H1
Public Const MF_DISABLED As Integer = &H2

<DllImport("user32.dll", EntryPoint := "GetSystemMenu")> _
Public Function GetSystemMenu(hWnd As IntPtr, bRevert As Integer) As IntPtr
End Function

<DllImport("User32.dll")> _
Public Function EnableMenuItem(hMenu As IntPtr, uIDEnableItem As Integer, uEnable As Integer) As Boolean
End Function

调用代码

Dim hMenu As IntPtr = GetSystemMenu(basemainform.Handle, 0)
EnableMenuItem(hMenu, SC_CLOSE, (MF_DISABLED + MF_GRAYED) Or MF_ENABLED)

测试了一下，阻止关机的代码好像无效。你可以自己测试一下

http://blog.csdn.net/testcs_dn/article/details/42365381

哦，是系统的问题

打开注册表:
HKEY_CURRENT_USER\Control Panel\Desktop
AutoEndTasks 改为0;
HungAppTimeout 改为5000;
WaitToKillAppTimeout 改为20000;

这些都是默认值，可能你装的是别人做的系统给改掉了。特别是第一个，改成1系统关机不会给你的程序发消息。

-------------------------------------

全局代码

'当用户试图注销或关闭系统时发生.
Public Sub SystemEvents_SessionEnding(sender As Object, e As Microsoft.Win32.SessionEndingEventArgs)
msgbox(e.reason)
Select Case e.reason
    Case Microsoft.Win32.SessionEndReasons.Logoff
        e.cancel = True
        msgbox("注销")
    Case Microsoft.Win32.SessionEndReasons.SystemShutdown
        e.Cancel = True
        msgbox("关闭")
End Select
End Sub

调用代码

addhandler Microsoft.Win32.SystemEvents.SessionEnding, addressof SystemEvents_SessionEnding