标题: 如何利用API函数获得Windows启动方式? [打印本页] 作者: 徐欣 时间: 2013-7-2 13:22 标题: 如何利用API函数获得Windows启动方式? 作者: 淡写轻描 时间: 2013-7-2 13:26
在Form1中加入一个CommandButton、一个Label并加入如下代码rivate 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 ElseLabel1 = "Windows运行在普通模式." End Select End Sub