'================================================================
'= システムを再起動するかどうかを尋ねる

'=    (SetupPromptReboot.bas)

'================================================================
#include "Windows.bi"

'システムを再起動するかどうかをユーザーに尋ねる
Declare Function Api_SetupPromptReboot& Lib "setupapi" Alias "SetupPromptReboot" (ByRef FileQueue&, ByVal Owner&, ByVal ScanOnly&)

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

    Ret = Api_SetupPromptReboot(ByVal 0, GethWnd, 0)
End Sub

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