如果我们关机或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中则CheckwParam=0菜单False，0菜单True)，说到这里大概就知道该如何做啦，程序如下：
　　
　　'以下在Form
　　PrivateSubForm_Load()
　　DimretAsLong
　　'记录原来的WindowProcedure的位址
　　preWinProc=GetWindowLong(Me.hwnd,GWL_WNDPROC)
　　'设定form的windowProcedure到wndproc
　　ret=SetWindowLong(Me.hwnd,GWL_WNDPROC,AddressOfwndproc)
　　EndSub
　　
　　PrivateSubForm_Unload(CancelAsInteger)
　　DimretAsLong
　　'取消Message的截取，而使之又只送往原来的WindowProcedure
　　ret=SetWindowLong(Me.hwnd,GWL_WNDPROC,preWinProc)
　　'这里只是要看看用关机的方式结束程序时，会不会执行到这里
　　DimfnoAsLong
　　fno=FreeFile
　　Open"c: t2"ForAppendAsfno
　　Print#fno,"ccc" vbCrLf
　　Close#fno
　　EndSub
　　
　　'以下在.Bas
　　
　　OptionExplicit
　　
　　DeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"_
　　(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
　　DeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA"_
　　(ByValhwndAsLong,ByValnIndexAsLong)AsLong
　　DeclareFunctionCallWindowProcLib"user32"Alias"CallWindowProcA"_
　　(ByVallpPrevWndFuncAsLong,ByValhwndAsLong,ByValMsgAsLong,_
　　ByValwParamAsLong,ByVallParamAsLong)AsLong
　　
　　PublicConstGWL_WNDPROC=(-4)
　　PublicConstWM_ENDSESSION=&H16
　　PublicConstWM_QUERYENDSESSION=&H11
　　
　　PublicpreWinProcAsLong
　　
　　PublicFunctionwndproc(ByValhwndAsLong,ByValMsgAsLong,_
　　ByValwParamAsLong,ByVallParamAsLong)AsLong
　　IfMsg=WM_QUERYENDSESSIONThen
　　Debug.Print"QryEnd",wParam,lParam
　　Else
　　IfMsg=WM_ENDSESSIONThen
　　IfwParam0Then'代表将顺利关机或LogOff，这时便得做正常结束程序的操作
　　DimfnoAsLong
　　Open"c: tt"ForOutputAs#1
　　Print#1,"hahcccc5"
　　Close#1
　　EndIf
　　EndIf
　　EndIf
　　'将之送往原来的WindowProcedure
　　wndproc=CallWindowProc(preWinProc,hwnd,Msg,wParam,lParam)
　　EndFunction

->