A ajouter dans un module Private Const SM_CLEANBOOT As Long = 67 Private Declare Function GetSystemMetrics Lib "user32.dll" (nIndex As Long) As Long Public Enum BootMode NormalBoot = 0 FailSafeBoot = 1 FailSafeBootNet = 2 UnknownBoot = 3 End Enum Public Function GetWindowsBootMode() As BootMode Dim lRet As Long lRet = GetSystemMetrics(SM_CLEANBOOT) Dim bm As BootMode Select Case lRet Case 0, 1, 2: bm = lRet Case Else: bm = UnknownBoot End Select GetWindowsBootMode = bm End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.