请教用delphi做一个定时启动工具

做一个界面,一个Timer1Timer1,两个Edit1、Edit2，

procedure TForm2.Timer1Timer1(Sender: TObject)

var

// st:SYSTEMTIME

htoken:THandle

TKP:TOKEN_PRIVILEGES

RR:DWORD

begin

edit1.Text:=TimetoStr(Now)

if edit1.Text=edit2.Text then

begin

//以下是雀蔽自如庆动关机，其中Edit2是用户设定的时间*************************************************************

OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,htoken)

LookupPrivilegeValue(nil,'seshutdownprivilege',TKP.Privileges[0].Luid)

TKP.PrivilegeCount:=1

TKP.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED

AdjustTokenPrivileges(htoken,FALSE,TKP,0,NIL,RR)

ExitWindowsEx(EWX_SHUTDOWN OR EWX_POWEROFF,0)

//***********************************************************************

end

end

用一个Button设窗口的Visible:=false窗口就看不见了

以下打开记事本的程序：

ShellExecute(handle,'open','notepad.exe',nil,nil,sw_shownormal)

换上上面渣岁握的自动关机程序就可以了.

啥用啊 ，把程序关掉了 ，你不就白报警了么 ！

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；

---