delphi编写定时关机程序

控件用了一个DatetimePicker来当日期。另外用了四个ComboBox来当时分秒。和关机重启选择。

另外还有一个checkbox是想实现X秒内倒计时警报

在就是有个密码控制,一个锁定,一个解锁。来控制所有按钮不可操作

应该要怎么写
·
啥用啊 ,把程序关掉了 ,你不就白报警了么 !
button1--锁谨历定 button2--解锁
第一个:解锁功能
if edit1.text="mima" then
begin
button1.enable:=false;
button2.enable:=true;
end;
第二个 锁定功能
button1.enable:=false;
第3个功能
需要用一个timer控件 每秒执行一次,判断是不是到了combobox设定的时间
if formatdatetime('yyyymmddhhmmss',now =formatdatetime('yyyymmddhhmmss',DatetimePicker.date)+combobox1.text+combobox2.text+combobox3.text then
"此处写关机代码"

4功能 ,倒计时功能
把日期-x秒加入判断就可以了

具体代码 strtoint(combobox3.text) -x
需要注意的问题是 ,族档秒没有x大的时候,要把分钟的数值减1.分钟不足一分钟兆晌乱,小时减一;

建议你这个地方也用datetimepiker;
定一个定时器,每隔一段时间就启用一下(也可智能处理,在定时器的处理程序中判断距离设置时间长短,动态设置下次启用定时器的间隔时间)。在定茄磨滑时器内部判断当前时间是否≥设定关机时间。关机最简单的可以调用系统关机命令,游困也可自么调用关机API。
你不会是不想自己实现吧!颤腊
100分买这个可不值
这个程序,我没有使用过。

电脑定时关机,我使用的是定时关机3000.

定时关机 3000有五种握握让电脑定斗卖时关机的方法,如每天几点几分关机或者等待多长时间后关机或者开机多长时间关机以及网速低于多少的时候关机和键盘鼠标多次时空皮逗间没有反应关机。