Как определить, в каком режиме загружена Windows.

Пример показывает, как определить в каком режиме загружена Windows - В Нормальном, в Безопасном режиме или в Безопасном режиме с поддержкой сети.

Объявления

Добавьте следующий код в секцию объявлений модуля

Option Explicit

Public Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long) As Long

Public Const SM_CLEANBOOT = 67

Код

Добавьте следующий код в форму, содержащую метку (label) и кнопку:

Private Sub Command1_Click()
Select Case GetSystemMetrics(SM_CLEANBOOT)
Case 1: Label1 = "Safe Mode."
Case 2: Label1 = "Safe Mode with Network support."
Case Else: Label1 = "Windows is running normally."
End Select
End Sub

Константа SM_CLEANBOOT не документирована в VB4 и в VB5. Допустимые значения для SM_CLEANBOOT - 0 (normal), 1 и 2.