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

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

const
   SM_CLEANBOOT = 67;
 
 type
   TWindowsBootMode = (
     bmNormal = 0,
     bmFailSafe = 1,
     bmFailSafeWithNetwork = 2,
     bmUnknow = 3
   );
 
 function GetSystemMetrics(nIndex: integer): integer; stdcall; external 'user32.dll' name 'GetSystemMetrics';
 
 
 function GetWindowsBootMode: TWindowsBootMode;
 var ret: integer;
 begin
   ret := GetSystemMetrics(SM_CLEANBOOT);
   case ret of
     0..2 : result := TWindowsBootMode(ret);
     else
       result := bmUnknow;
   end;
 end;
 
 function WindowsBootModeToStr(const bm : TWindowsBootMode): string;
 const
   BTS : array[TWindowsBootMode] of string = ('Normal mode','Safe mode','Safe mode with network','Unknow');
 begin
   result := BTS[bm];
 end;