TOP > カテゴリ > Visual Basic >

Windowsを終了、再起動させる

Windowsを終了、再起動させるサンプルです。

サンプルの実行画面

ソースコード

[ExitWindowsEx.frm]

'ExitWindowsEx=>Windowsを終了させる

'<引数>
'uFlags:定数(EWX_××参照)
'dwReserved :常に0


'@戻り値@
'正常終了のとき : 0 以外

Private Declare Function ExitWindowsEx Lib "USER32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Const EWX_LOGOFF = 0     'ユーザーが操作中のアプリケーションをクローズ゙してログオフする
Const EWX_SHUTDOWN = 1   '終了
Const EWX_REBOOT = 2     '再起動
Const EWX_PROCESS = 4    '応答のないプロセスを強制終了する

Private Sub Command1_Click()

Call ExitWindowsEx(EWX_SHUTDOWN, 0)

End Sub

Private Sub Command2_Click()
  
Call ExitWindowsEx(EWX_REBOOT, 0)
 
End Sub

ソースコード一式のダウンロード

vbapi_exitwindowsex.zip 898 バイト (898 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





掲示板

ソフトウェア、ハードウェアのプログラミング用の掲示板を作成しました。質問やわからない事は@掲示板でユーザー同士で情報を共有して下さい。

関連記事



公開日:2015年03月05日
記事NO:00384