系统托盘里好多程序都能在关机时自动关闭,但我的程序往往要强制中止,为什么呀?
如何捕获系统关机事件?,这样,捕获后 自行把自己关闭掉。
如何捕获系统关机事件?,这样,捕获后 自行把自己关闭掉。
解决方案 »
- 代码从VB6.0转化为VS2008的问题
- mshflexgrid里的指定数据替换方法
- 如何将查找出来的一个记录集快速添加进一个表里?
- 我想学习VB,需要用什么工具,然后就是我学了JAVA和C#,学VB有没有用处
- 请问怎么在程序中改变DATA REPORT中LABEL的CAPTION。
- 有一mdb库中包含一个人事表格,其中“部门”字段的取值是固定的几种可能,怎样通过代码
- 【求助】关于VB实现远程控制的问题
- 问一个有关byte的操作
- To: fishzone(阿愚)及其他高手(uguess及Amoon等)
- 关于vb下的图片框打印
- 实在没有分了,帮帮我吧.字符串问题
- 请问,如何查看recordset中记录的个数?(我是新手,请高手们多指教)
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'以下在.BasOption ExplicitDeclare 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 LongPublic Const GWL_WNDPROC = (-4)
Public Const WM_ENDSESSION = &H16
Public Const WM_QUERYENDSESSION = &H11Public preWinProc As LongPublic 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
代码拷贝后以运行,可是加入到我程序中却不能关机了,我肯定代码没有问题,可能是跟运行我程序时间有关?还是没有给系统返回true值?只好再调用关机api了。
代码拷贝后以运行,可是加入到我程序中却不能关机了,我肯定代码没有问题,可能是跟运行我程序时间有关?还是没有给系统返回true值?只好再调用关机api了。检查一下是否是回调函数的问题(看看是否把关机的消息吃掉了)