APIs: Fermer Windows	Author(s) Dev Ashish

(Q)    Comment fermer Windows depuis Access?

(A)    Fournir à la fonction fTerminateWin une des constantes spécifiées.

AVERTISSEMENT: Cette fonction retourne immédiatement et le "shutdown" procède en arrière plan. Être certain de terminer son application pour générer un processus tout en douceur.

'**************** Code Begin *******************
Private Declare Function apiExitWindowsEx Lib "user32" _
        Alias "ExitWindowsEx" _
        (ByVal uFlags As Long, ByVal dwReserved As Long) _
        As Long

Public Const EWX_FORCE = 4      'Forcibly terminates processes
                                'that do not respond.
Public Const EWX_LOGOFF = 0     'Terminates processes, then logs off.
Public Const EWX_SHUTDOWN = 1   'Powers the system off, if possible.
Public Const EWX_REBOOT = 2     'Reboots the system.

Function fTerminateWin(lngExitVal As Long)
    fTerminateWin = apiExitWindowsEx(lngExitVal, 0)
End Function
'***************** Code End  *******************