在关机或Logff前信息的拦截

核心提示：如果我们关机或Logoff时，我们的程序有时会因而无法按正常程序结束，在关机或Logff前信息的拦截，一般我们会在Form的Unload中一段程序结束时要做什么事，但是，程序如下：'以下在FormPrivateSubForm_Load()DimretAsLong'记录原来的WindowProcedure

如果我们关机或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:\tt2"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:\ttt"ForOutputAs#1
Print#1,"hahcccc5"
Close#1
EndIf
EndIf
EndIf
'将之送往原来的WindowProcedure
wndproc=CallWindowProc(preWinProc,hwnd,Msg,wParam,lParam)
EndFunction

->