网上大多数帖子只能截获到系统给所有进程的关闭消息,却不能区分关机、重启、注销的3个事件,有更好的方式么?
解决方案 »
- 贞子的故事——仅供YY
- 请高手给出SET ADORS=ADOCON.EXECUTE语句的详细解释!VB+SQL的!
- 问一个在listview中关于字段中包含布尔类型,我想在另外的checkbox中显示出记录中该字段是“是”还是“否”
- 如何将数据库输出到一个文本文件中?
- GetSetting("LibrarySys", "System", "ServerName", "")是什么意思?
- 请问用ADO怎么样对access数据库进行压缩,最好提供源代码,谢谢!
- 如何清空Temporary Internet Files下的缓存?
- 有没有生成全球唯一编号的API阿?
- 我是新手,请问在打包后仍有339错误,如何解决?请赐教。
- 急! 求教VB 6中MP3 播放
- 这样的Label能否显示?
- 怎样把那个是否替换文件的对话框去掉?
ByVal hWnd As Long, _
ByVal iMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Dim lR As Long
If (iMsg = WM_QUERYENDSESSION) Then '注意下面语句,检测lparam中是否包含ENDSESSION_LOGOFF
If (lParam Or ENDSESSION_LOGOFF) = ENDSESSION_LOGOFF Then
' user logging off
Else
' shutdown
End If
lR = 1
' Return 0 to prevent the session being ended,
' otherwise return 1:
ISubclass_WindowProc = lR
End If
End Function