从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即时显示距离关机所剩余的秒数,实现倒计时。 |