用Visual Basic实现Windows的重启动

在安装Windows应用程序时，由于更改了系统设定，常常必须要重新启动Windows能使更改有效。这就造成频繁的退出Windows再键入“WIN”进入Windows，显得十分繁琐。笔者使用Visual Basic语言编写了一个小程序，可以实现Windows的重新启动，甚至可以实现系统的重新启动。其方法是调用Windows的应用接口函数API：ExitWindows。它支持两个参数。第一个参数决定了退出Windows的方式。可选择参数有：&h42～重新启动Windows、&h43～系统热启动，第二个参数为恒为0。建立应用程序的步骤如下：
（1）进入Visual Basic设计环境，新建一个工程项目Project1,在窗体中设置按钮数组Command1(0)、Command1(1)和Command1(3).各个对象的属性如下：
form1: caption:启动工具
backcolor:&H00C0C0C0&
command1(0) caption:程序重新启动Windows
command1(1) caption:系统热启动
Command1(3) caption:退出
（2）代码设计。首先在窗体的通用代码区（General）内对所调用的WindowsAPI函数进行声明如下：
Declare Function exitwindows Lib "User" (ByVal dwReturnCode As Long, ByVal wReserved As Integer) As Integer
程序代码如下：
Sub Command1_Click (index As Integer)
Select Case index
Case 0
i = exitwindows(&H43, 0)’热启动
Case 1
i = exitwindows(&H42, 0)’重新启动Windows
Case 3
End ’退出
End Select
End Sub
（3）程序调试通过后以一定的文件名存盘，激活File菜单中的Make Exe File…,可以编译成可执行文件，然后退出VB环境，在程序管理器中新建一个程序项，在程序项特性对话框的命令行一栏中输入编译生成的EXE文件的正确路径，并选择一个合适的图标，点“确认”就在相应的组窗口中生成了图标。你就可以在安装软件过程中使用这一工具大大简化重新启动的步骤，有兴趣的读者不妨试一试。