Connaître le mode de démarrage de Windows

Commenter

Contenu du snippet 

Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Integer) As Integer

Public Enum BootMode As Integer

NormalBoot = 0 'D‚marrage normal

FailSafeBoot = 1 'D‚marrage sans ‚chec

FailSafeBootNet = 2 'D‚marrage sans ‚chec avec prise en charge du r‚seau

UnknownBoot = 3 'Mode de d‚marrage inconnue

End Enum
Public Function GetWindowsBootMode() As BootMode 
Const SM_CLEANBOOT As Integer = 67
Dim iRet As Integer


iRet = GetSystemMetrics(SM_CLEANBOOT)
Dim bm As BootMode 
Select Case iRet
Case 0, 1, 2 : bm = CType(iRet, BootMode) 
Case Else : bm = BootMode.UnknownBoot
End Select


GetWindowsBootMode = bm

End Function

Compatibilité : VB 2005, VB 2008, VB.NET 1.x

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_Willi)