发表评论(0)作者:, 平台:, 阅读:8190, 日期:2000-03-12
定义:
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Const SM_CLEANBOOT = 67
使用:
Select Case GetSystemMetrics(SM_CLEANBOOT)
Case 1: MsgBox "在安全模式。"
Case 2: MsgBox "在带网络环境的安全模式。"
Case Else: MsgBox "正常模式。"
End Select
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Const SM_CLEANBOOT = 67
使用:
Select Case GetSystemMetrics(SM_CLEANBOOT)
Case 1: MsgBox "在安全模式。"
Case 2: MsgBox "在带网络环境的安全模式。"
Case Else: MsgBox "正常模式。"
End Select