[VB6] Intercettare riavvio del PC

[kentaromiura]

la ricerca non va, quindi chiedo schiuma se esiste già un 3d a riguardo...

ho un installer che riavvia la macchina,
ho un programma che deve rimanere acceso durante tutta la fase di installazione, e anche dopo,
quindi nel momento dello shutdown io vorrei scrivere sto programma nella RunOnce (ho già una funzione che fa questo)
ora mi serve poter intercettare e riconoscere l'evento di ShutDown di windows..

ho provato a usare il QueryUnload della Form ma non funziona..
se lo metto nell'unload invece lo fa anche (giustamente) nel caso di chiusura manuale dell'applicazione..

c'e' un sistema??

[yyzyyz]

prova cosi:

Option Explicit 
Private Const MODE_DEV = 0 
Private Const MODE_EXE = 1 

' cambia i valori in fase di compilazione EXE 
Private Const mode = MODE_DEV 
'Private Const mode = MODE_EXE 

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long) 

Private Sub Command1_Click() 

If mode = MODE_DEV Then  
   End  
 ElseIf mode = MODE_EXE Then  
    ExitProcess 0 
End If 
End Sub

[xegallo]

leggi qui

[kentaromiura]

ho risolto, per chi servisse

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

  If UnloadMode = 2 Then MsgBox("Chiusura windows")
End Sub

il problema era da un altra parte del codice

[oregon]

Al posto del 2 puoi usare l'apposita costante

QueryUnloadConstants.vbAppWindows

Per rendere il codice piu' leggibile puoi scrivere

If UnloadMode = vbAppWindows Then ...