Option Compare Database
Option Explicit

'---------------------------------------------------------------------------------------------------------------------------------------------------
'クラス名またはキャプションタイトルを与えてウィンドウハンドルを取得
'戻り値     正常終了 = ウィンドウのハンドル
'           異常終了 = 0
'---------------------------------------------------------------------------------------------------------------------------------------------------
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'---------------------------------------------------------------------------------------------------------------------------------------------------
'メッセージキューにメッセージをポストする関数
'戻り値     正常終了 = 0以外
'           異常終了 = 0
'---------------------------------------------------------------------------------------------------------------------------------------------------
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_CLOSE = &H10&

'---------------------------------------------------------------------------------------------------------------------------------------------------
'Windowsをログオフ／シャットダウン／再起動する
'戻り値     正常終了 = 0以外
'           異常終了 = 0
'---------------------------------------------------------------------------------------------------------------------------------------------------
Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
    
Public Const EWX_LOGOFF = 0&    'ログオフ
Public Const EWX_SHUTDOWN = 1&  'シャットダウン
Public Const EWX_REBOOT = 2&    '再起動
Public Const EWX_FORCE = 4&     'プロセスの強制終了
Public Const EWX_POWEROFF = 8&  'シャットダウン後に電源を切る

'---------------------------------------------------------------------------------------------------------------------------------------------------
'Windowsをシャットダウンする(dwReserved,uReturnCodeは予約済みで0でなければならない)
'戻り値     正常終了 = 0以外
'           異常終了 = 0
'---------------------------------------------------------------------------------------------------------------------------------------------------
Declare Function ExitWindows Lib "user32" (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long