'================================================================
'= システム設定の変更ダイアログ表示

'=    (ReStartDialog.bas)
'================================================================
#include "Windows.bi"

' Windowsの終了または再起動を促すダイアログボックスを表示
Declare Function Api_RestartDialog& Lib "Shell32" Alias "RestartDialog" (ByVal hwndOwner&, ByVal lpstrReason$, ByVal uFlags&)
 
#define IDYES 6                         '「はい」
#define IDNO 7                          '「いいえ」
#define EWX_FORCE 4                     '強制
#define EWX_LOGOFF 0                    'ログオフ
#define EWX_POWEROFF 8                  'パワーオフ
#define EWX_REBOOT 2                    'リブート
#define EWX_SHUTDOWN 1                  'シャットダウン

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var temp As String
    Var Ret As Long

    temp = ""

    Ret = Api_RestartDialog(GethWnd, temp, EWX_REBOOT)
 
    If Ret = IDNO Then
        Cls
        Print "「いいえ」が選択されました！"
    End If
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End