intercept Windows Shutdown

[prettitoni]

Hi there. I need to intercept a call to Shutdown or Log Off thru a VB6 application. I found this code, but it doesn't appear to work:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbAppWindows Then
        'Windows is shutting down; put code here
    End If
End Sub

 

[prettitoni]

It does work afterall.....

 

[strongm]

In what way is it failing?

Note that this event can only trap your application being requested to close, by a variety of methods such as Windows shutdown or user logout; and it only detects this when your application's process is sent the WM_SHUTDOWN message - if your process is the last in the process list, then everything else will have been closed/exited before the event fires.