'############################################################### '函数作用:取得系统使用模式 '############################################################### Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Public Function SystemRunMode() As String Select Case GetSystemMetrics(67) Case 1 SystemRunMode = "Safe" Case 2 SystemRunMode = "SafeNetwork" Case 0 SystemRunMode = "Standard" End Select End Function |
|