Zjištění módu Windows
Založte nový projekt s modulem a formulářem. Do formuláře připojte tlačítko a Label
V modulu použijte následující
deklarace:
Public Declare Function GetSystemMetrics Lib "user32" _ (ByVal
nIndex As Long) As Long
Public Const SM_CLEANBOOT = 67
Ve formuláři, na událost
Click tlačítka zapište následující kód:
Private Sub
Command1_Click()
Select Case GetSystemMetrics(SM_CLEANBOOT)
Case 1: Label1 = "Windows běží
v bezpečném módu."
Case 2: Label1 = "Windows běží
v bezpečném módu s podporou sítí."
Case Else: Label1 = "Windows
běží v normálním módu."
End Select
End Sub