怎么确定当前Windows的启动状态?

moon15 2003-01-14 04:07:24
up
...全文
10 点赞 收藏 2
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
jxf_yx 2003-01-14
来晚了

声明:
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
回复
lxcc 2003-01-14
'GetSystemMetrics函数声明
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 3:MsgBox "在正常模式。"
End Select
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7452

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告