如何控制不让windows系统正常关机?

[crycoming]

我看到很多的程序,当它在运行时,通过开始菜单的关闭系统不能关机.
请问各位大虾,这个功能如何实现?

[crycoming]

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

Declare 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 Long

Public Const GWL_WNDPROC = (-4)
Public Const WM_ENDSESSION = &H16
Public Const WM_QUERYENDSESSION = &H11

Public preWinProc As Long
Private Sub Form_queryUnload(Cancel As Integer)
Dim ret As Long
'取消Message的截取,而使之又只送往原来的Window Procedure
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
'这里只是要看看用关机的方式结束程式时,会不会执行到这里
'********到这我不会写了,请帮帮忙*********
End Sub
我获得关闭信息后,如何返回信息让系统和我的程序都不会关闭?

[duke0371]

继续关注！

[yokel]

关注

[crycoming]

fzb(方圆)　同志,能否帮我完成上面的控制?

[Jackyin]

关注

[crycoming]

难道真的没有人能帮我吗?????
我的分数已经全压上了!!

[QQRN]

guanzhu

[crycoming]

大家帮帮忙吧!!!!
怎么才能返回信息控制系统呢?

[crycoming]

up

[crycoming]

up

[haor]

如果只是不想用户通过关机退出程序应该不用回调函数吧？
我记得只需要捕获queryunload事件并设置cancel就可以了。

[lanren_me]

gz

[sssa2000]

干脆 把 任务栏隐藏了， 把键盘的 alt+f4拦截，就关闭不了了

[crycoming]

好像不行呀，关机是系统级的
Cance不行
这是我上CSDN的第一个问题，至今未能解决，谁来指点一下

[crycoming]

可是用户还要做别的事情，好像是北京的一个财务软件就这样处理的，这样客户端的财务在生成
报表等的时候就有安全感

[skydg]

gz

[chenangle]

那断电和关机箱电源，你怎么办？？

[crycoming]

我是要这个功能，其它的事情不考虑

[crycoming]

up
为什么不能再加分？

[crycoming]

不相信没人会