如何拦截关闭计算机消息？-对高手来讲很简单的问题

Question

我希望能在关闭计算机前做一些其他处理后再继续完成关机

Answer 1

在关机或Logff前讯息的拦截
来源:cww如果我们关机或Logoff时，我们的程式有时会因而无法按正常程序结束，一般我们会在
Form的Unload中一段程式结束时要做什麽事，但是，如果使用者直接用开始功能表的关
机，会使UnLoad的部份没有做到，我们现在就想办法来拦截关机(或Logoff)时的讯息。一般来说，关机或Logff後，Windows会传依序送出WM_QUERYENDSESSION的讯息给每个
Process，如果中间有一个Process不能顺利结束(例如：Word修改後未存档，而出现是
否存档，但我们按取消)，这时该讯息执行的结果会传回False(0)，这时Windows也就
不再继续送WM_QUERYENDSESSION给下一个Proccess。反之，如果所有的Process都可以
顺利结束(也就是每个送出的WM_QUERYENDSESSION都传回True)，那才代表可以顺利结束。不管WM_QUERYENDSESSION最後的结果是可以顺利结束或不能顺利结束，Windows会再送
一个WM_ENDSESSION的讯息给所有的Process，而wParam的内容便是指出是否可以顺利
结束(True表可以，False表不行，在vb中则Check wParam = 0 表False ，<> 0表True)
，说到这里大概就知道该如何做啦，程式如下：
'以下在Form 
Private Sub Form_Load()
  Dim ret As Long
  '记录原本的Window Procedure的位址
  preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
  '设定form的window Procedure到wndproc
  ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf wndproc)
End SubPrivate Sub Form_Unload(Cancel As Integer)
  Dim ret As Long
  '取消Message的截取，而使之又只送往原来的Window Procedure
  ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
  '这里只是要看看用关机的方式结束程式时，会不会执行到这里
  Dim fno As Long
  fno = FreeFile
  Open "c:\tt2" For Append As fno
  Print #fno, "ccc" + vbCrLf
  Close #fno
End Sub 
'以下在.Bas Option Explicit Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
   (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
   (ByVal hwnd As Long, ByVal nIndex As Long) As Long
 Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _
   (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long  Public Const GWL_WNDPROC = (-4)
  Public Const WM_ENDSESSION = &H16
  Public Const WM_QUERYENDSESSION = &H11  Public preWinProc As Long  Public Function wndproc(ByVal hwnd As Long, ByVal Msg As Long, _
                          ByVal wParam As Long, ByVal lParam As Long) As Long
  If Msg = WM_QUERYENDSESSION Then
     Debug.Print "QryEnd", wParam, lParam
  Else
      If Msg = WM_ENDSESSION Then
         If wParam <> 0 Then '代表将顺利关机或LogOff，这时便得做正常结束程式的动作
            Dim fno As Long
            Open "c:\ttt" For Output As #1
            Print #1, "hahcccc5"
            Close #1
         End If
      End If
  End If
  '将之送往原来的Window Procedure
  wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
  End Function

Answer 2

注意有一定的Timeout时间，如果任务不能在Timeout规定的时间内完成就会被强行结束。也可以在WM_QUERYENDSESSION里面返回取消信息，这样关机过程就会被中止。注意：对强制关机（带EWX_FORCE标志的关机）无效。EWX_FORCE不向任何程序发送WM_QUERYENDSESSION而是很暴力地直接关掉的 :)