IsPwrShutdownAllowed シャットダウンをサポートするかどうかを取得

IsPwrSuspendAllowed サスペンド（スタンバイ）をサポートするかどうかを取得

IsPwrHibernateAllowed ハイバネーション（休止状態）かどうかを取得

★実行中プログラムの終了処理などを正しく行ないシステムの電源を遮断できる状態にする。

★サスペンド（suspend）別名をスタンバイともいい、コンピュータの電源を切る直前の状態をメモリに保存し、次に電源を入れたとき電源を切る直前の状態から作業を再開する。

★ハイバーネーション（hibernation）別名を休止状態といい、コンピュータの電源を切る直前の状態をハードディスクに保存し、次に電源を入れたとき電源を切る直前の状態から作業を再開する。

「休止状態を有効にする」のチェックを外してみました。

'================================================================
'= 電源オプションのサポート状態を取得

'=    (IsPwrHibernateAllowed.bas)
'================================================================

' シャットダウンのサポートするかどうかを取得
Declare Function Api_IsPwrShutdownAllowed& Lib "Powrprof" Alias "IsPwrShutdownAllowed" ()

' 休止状態のサポートするかどうかを取得
Declare Function Api_IsPwrSuspEndAllowed& Lib "Powrprof" Alias "IsPwrSuspEndAllowed" ()

' ハイバネーションのサポートするかどうかを取得
Declare Function Api_IsPwrHibernateAllowed& Lib "Powrprof" Alias "IsPwrHibernateAllowed" ()

If Api_IsPwrShutdownAllowed <> 0 Then
    Print "シャットダウンのサポート有り"
Else
    Print "シャットダウンのサポート無し"
End If

If Api_IsPwrSuspEndAllowed <> 0 Then
    Print "休止状態のサポート：有り"
Else
    Print "休止状態のサポート：無し"
End If

If Api_IsPwrHibernateAllowed <> 0 Then
    Print "ハイバーネーション(休止状態)：オン"
Else
    Print "ハイバーネーション(休止状態)：オフ"
End If

Stop
End