没有合适的资源?快使用搜索试试~ 我知道了~
精彩编程与编程技巧-在关机或Logff前信息的拦截...
需积分: 3 1 下载量 110 浏览量
2009-10-09
00:04:51
上传
评论
收藏 3KB TXT 举报
温馨提示
![preview](https://dl-preview.csdnimg.cn/txt_preview/1724223/1724223_thumbnail_1.jpg?x-oss-process=style/thumbnail)
![preview-icon](https://csdnimg.cn/release/downloadcmsfe/public/img/scale.ab9e0183.png)
试读
3页
精彩编程与编程技巧-在关机或Logff前信息的拦截 ...
资源推荐
资源详情
资源评论
![text/plain](https://img-home.csdnimg.cn/images/20210720083646.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![text/plain](https://img-home.csdnimg.cn/images/20210720083646.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![pptx](https://img-home.csdnimg.cn/images/20210720083543.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
在关机或Logff前信息的拦截
如果我们关机或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 Sub
Private Sub Form_Unload(Cancel As Integer)
Dim ret As Long
'取消Message的截取,而使之又只送往原来的Window Procedure
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
如果我们关机或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 Sub
Private Sub Form_Unload(Cancel As Integer)
Dim ret As Long
'取消Message的截取,而使之又只送往原来的Window Procedure
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
资源评论
![avatar-default](https://csdnimg.cn/release/downloadcmsfe/public/img/lazyLogo2.1882d7f4.png)
![avatar](https://profile-avatar.csdnimg.cn/default.jpg!1)
求伯乐
- 粉丝: 22
- 资源: 3095
上传资源 快速赚钱
我的内容管理 展开
我的资源 快来上传第一个资源
我的收益
登录查看自己的收益我的积分 登录查看自己的积分
我的C币 登录后查看C币余额
我的收藏
我的下载
下载帮助
![voice](https://csdnimg.cn/release/downloadcmsfe/public/img/voice.245cc511.png)
![center-task](https://csdnimg.cn/release/downloadcmsfe/public/img/center-task.c2eda91a.png)
安全验证
文档复制为VIP权益,开通VIP直接复制
![dialog-icon](https://csdnimg.cn/release/downloadcmsfe/public/img/green-success.6a4acb44.png)