从Internet下载较大的软件时，由于目前网络带宽的原因，许多人喜欢在晚间进行，而到深夜时就存在人需要休息的问题。目前绝大多数下载软件可以估算出下载所需的时间，如果到时让计算机自动关机，就可以免受守候之苦。本文介绍笔者用C＋＋ Builder 5编写的一个能实现定时自动关机的程序。
程序功能
程序的运行界面如图1所示：
图 1
图1界面上半部分用于即时显示当前系统的日期和时间信息，下半部分用于设置自动关机的日期和时间。当系统时间和设置的关机时间吻合（相等）并且“自动关机生效”被选中时，计算机将自动关闭。其中，只有当所设定的关机时间在有效范围内时（即大于系统时间），“自动关机生效”才能被激活。
组件设置
向窗体上放置两个TGroupBox组件：GroupBox1和GroupBox2，其Caption属性分别设置为“当前系统时间”和“预设关机时间”。在这两个组件上再放置4个TDateTimePicker组件：DateTimePicker1、DateTimePicker2和DateTimePicker3、DateTimePicker4，其中前两个分别用于显示当前系统的日期和时间，后两个用于设置自动关机的日期和时间，它们的部分属性值设置如下表所示：
在窗体上放置一个TCheckBox组件：CheckBox1（其Caption属性设置为“自动关机生效”）和一个TTimer组件：Timer1（其Interval属性取缺省值1000）。
代码编写
在窗体的OnCreate事件过程中编写如下代码：
void __fastcall TForm1::FormCreate(TObject ＊Sender)
{
CheckBox1－>Checked=false;
//初始设置为不可访问
CheckBox1－>Enabled=false;
DateTimePicker4－>DateTime=Now();
DateTimePicker3－>DateTime=Now();
DateTimePicker2－>DateTime=Now();
//用系统时间初始化组件
DateTimePicker1－>DateTime=Now();
}
在组件Timer1的OnTimer事件过程中编写如下代码：
void __fastcall TForm1::Timer1Timer(TObject ＊Sender)
{
DateTimePicker2－>DateTime=Now();
//接收当前日期和时间，用于即时显示
DateTimePicker1－>DateTime=Now();
//随时检测设定的关机日期和时间是否有效
if(DateTimePicker4－>DateTime < Now())
{
CheckBox1－>Checked=false;
//无效时不可访问
CheckBox1－>Enabled=false;
}
else
CheckBox1－>Enabled=true; //有效时可以访问
if(CheckBox1－>Checked == true ＆＆ DateTimeToStr(DateTimePicker4－>DateTime) == DateTimeToStr(Now()))
{//判断定时关机条件是否满足
DWORD tmp;
//调用Win API函数关闭计算机
ExitWindowsEx(EWX_SHUTDOWN,tmp);
}
}
组件DateTimePicker3和DateTimePicker4的OnChange事件过程的代码相类似，为使这两个组件所设置的日期和时间“联动”（同时变化），组件DateTimePicker3的OnChange代码设置如下：
void __fastcall TForm1::DateTimePicker3Change(TObject ＊Sender)
{//组件变化“联动”
DateTimePicker4－>DateTime=DateTimePicker3－>DateTime;
//检测设置的日期是否有效
if(DateTimePicker4－>DateTime < Now())
{
CheckBox1－>Checked=false;
CheckBox1－>Enabled=false;
}
else
CheckBox1－>Enabled=true;
}
组件DateTimePicker4的OnChange代码设置如下：
void __fastcall TForm1::DateTimePicker4Change(TObject ＊Sender)
{//组件变化“联动”
DateTimePicker3－>DateTime=DateTimePicker4－>DateTime;
//检测设置的时间是否有效
if(DateTimePicker3－>DateTime < Now())
{
CheckBox1－>Checked=false;
CheckBox1－>Enabled=false;
}
else
CheckBox1－>Enabled=true;
}
另外，如果在Timer1组件的OnTimer事件过程中添加如下代码：
//定义日期时间型对象（变量）
TDateTime presetDateTime,currentDateTime;
presetDateTime=DateTimePicker3－>DateTime;
currentDateTime=Now();
//得到时间差(秒数)
Edit1－>Text=int((presetDateTime.Val－currentDateTime.Val)＊60＊60＊24);
则可以通过在窗体上放置的TEdit组件Edit1即时显示距离关机所剩余的秒数，实现倒计时。
本文地址：http://com.8s8s.com/it/it30314.htm