18
Ноябрь
2008
Как узнать режим загрузки Windows?
Как узнать режим загрузки Windows?
Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CLEANBOOT = 67
Private Sub Form_Load()
Dim lngRetVal&
Dim strInfo$
lngRetVal& = GetSystemMetrics(SM_CLEANBOOT)
Select Case lngRetVal&
Case 0
strInfo$ = "обычный"
Case 1
strInfo$ = "безопасный"
Case 2
strInfo$ = "безопасный с сетевой поддержкой"
End Select
MsgBox "Режим загрузки Windows: " & strInfo$
End Sub