在Visual Basic中終止Windows 95 (轉)

在Visual Basic中終止Windows 95 (轉)[@more@]在中，可以使用 來重新啟動
，文字介紹如何退出Windows 95並關閉計算機系統。

# 關閉計算機系統

可以使用Windows API的ExitWindowsEx函式來從Visual Basic程式中
重新啟動計算機系統。要使用該函式，需要將如下宣告語句包含在窗體的
通常宣告部分中：

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

ExitWindowsEx 函式需要2個引數，可以使用一個或多個下面的標識
的組合來告訴ExitWindowsEx函式希望進行關機過程。

EWX_FORCE所有的程式都被強制終止。

EWX_LOGOFF所有的程式被強制終止，並且退出登入（logged off）。

EWX_POWEROFF計算機系統被關機，並且如果支援節電特性，則計算機被物理關機。

EWX_REBOOT計算機系統被關機並重新啟動。

EWX_SHUTDOWN計算機被物理地地關機。

下面的樣例程式中使用了上面的三個標識的組合。該標識組合
（EWX_LOGOFF，EWX_FORCE, 以及EWX_REBOOT）告訴Windows95退出所有正
在的程式，使使用者退出登入，使計算機系統處於準備狀態以供用
戶關機。

# 樣例程式

該樣例程式顯示瞭如何關閉計算機系統。

1.在Visual Basic中開始一個新的專案，採用預設的方法建立Form1。

2.將如下常量和宣告語句新增到Form1的通常宣告部分中（注意該聲
明語句需要書寫在一行內）：

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_FORCE = 4

Const EWX_POWEROFF = 8

Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT

3.在Form1上新增一個命令按鈕，採用預設的方法建立Comand1。
將它的Caption屬性設定為“重新啟動計算機”。

4.將如下程式碼新增到Command1的單擊事件中：

Private Sub Command1_Click()

Dim X As Long

X = ExitWindowsEx(EWX_RESET, dwReserved)

End Sub

按下F5來執行上述樣例程式，單擊命令按鈕，即可重新啟動計算機系統。