起動モードの取得          <TOP>

起動モードを取得します。

GetSystemMetrics さまざまなシステムメトリックの値とシステムの現在の構成を取得

SM_CLEANBOOT(67) Windowsを起動した方法
　

Windows2000機でテストしてみました。

'================================================================
'= 起動モードを調べる

'=    (SM_CLEANBOOT.bas)
'================================================================

' さまざまなシステムメトリックの値とシステムの現在の構成を取得
Declare Function Api_GetSystemMetrics& Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex&)

#define SM_CLEANBOOT 67      'Windowsを起動した方法

Select Case Api_GetSystemMetrics(SM_CLEANBOOT)
    Case 1
        Print "セーフモードで起動"
    Case 2
        Print "ネットワークを介したセーフモードで起動"
    Case Else
        Print "通常モードで起動"
End Select

Stop
End