VB 版 (精华区)

发信人: zxfsnow (别怕我伤心), 信区: VB
标  题: 获得Windows启动方式
发信站: 哈工大紫丁香 (2000年05月31日19:25:33 星期三), 转信

发信人: memory (虚方), 信区: VB
标  题: 获得Windows启动方式
发信站: 虎踞龙盘东南站 (Tue Jun 22 21:45:51 1999), 转信

在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是以何种方式启动的。
  
--

 以科计为本,以产业报国!
  超越自我,飞跃无限!
  

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]