keeping windows from shutting down

[deoblo1]

Is their a way to disable windows from being able to shut down? Granted you could just hit the power switch. But I have 2 computers networked, and i use them both and at times people shut off the other one while I am useing it. I want to make it so I can tell windows not to let it shut down. So the only way you could shut down the comp would be by hitting the power switch.

ummmmm....
you could subclass so the user can not click the "**** down" on the start menu, and you would also have to subclass so when ctrl-alt-del is hit twice it wouldnt do anything,
this would require a DLL in made in C++ though, and I dont really know how to do any of it... I am just giving you ideas

[kedaman]

I haven't used it but it should do the trick i think

Declare Function AbortSystemShutdown Lib "advapi32.dll" Alias "AbortSystemShutdownA" (ByVal lpMachineName As String) As Long

[Yonatan]

MSDN says:

The InitiateSystemShutdown function displays a dialog box that notifies the user that the system is shutting down.
During the InitiateSystemShutdown time-out period, the AbortSystemShutdown function can prevent the system from shutting down.

Also, it's only for NT, and, your program must have a certain privilege (from what I remember, setting privileges on NT is more trouble than it's worth).
Even hooks (like denniswrenn suggested) aren't "allowed" to disable shutting Windows down.
Besides, are you sure you don't want Windows to ever shut down?

[kedaman]

But i'm sure there is a way, for instance if you cancel notepad with typed text in it, shutdown will automatically abort At least you could shell notepad, send a little text, alt F4 and then press cancel

[Yonatan]

Try it the "notepad method". (Not sure if it will work)
Create a form with Visible = False and add this code.

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub

[oetje]

Works great, Yonatan.

[kedaman]

It works! I can't believe it
hmm, ok anyway ctrl-alt-del can be disabled also:

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

SystemParametersInfo 97, bDisabled, CStr(1), 0

[Yonatan]

Wow. The last words I expected to see in reply are "it works great". I can't believe it!
The code that disables Ctrl-Alt-Del does so by tricking the system to think a screen saver is running.
Because of this, also other key combinations like Alt-Tab and Ctrl-Esc will be disabled.

P.S.
oetje: Thank you VERY FREAKING MUCH for spelling my name correctly.

[kedaman]

WoW! WoW! and WOW again
Sorry i didn't notice that it actually was Yonatan , welcome back!

Yep, you are disbled from everything except to press that power or reset button

How is vbAppWindows used?

unloadmode - A value or constant indicating the cause of the QueryUnload event, as described in Return Values.

vbAppWindows - 2 - The current Microsoft Windows operating environment session is ending.


http://forums.vb-world.net/showthrea...threadid=21294

    If UnloadMode = vbAppWindows Then
        Shell "C:\yourapppath\yourapp.exe", vbNormalFocus
    End If
End Sub

You Shell a program upon shutting down, but how would you stop Windows? Would it be something like:

If UnloadMode = vbAppWindows Then Cancel = True

[Yonatan]

Put it all together, in a huge mess, and it somehow works.

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbAppWindows Then
        Call Shell("C:\YourAppPath\YourApp.Exe", vbNormalFocus)
        Cancel = True
    End If
End Sub