獲得Windows啟動方式

在Form1中加入一個CommandButton、一個Label并加入如下代碼
Option Explicit

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

Const SM_CLEANBOOT = 67

Private Sub Command1_Click()
Select Case GetSystemMetrics(SM_CLEANBOOT)
Case 1: Label1 = "安全模式."
Case 2: Label1 = "支持網絡的安全模式."
Case Else: Label1 = "Windows運行在普通模式."
End Select
End Sub
點擊Command1就可以看到Windows是以何種方式啟動的。

原文轉自：http://www.anti-gravitydesign.com