delphi源码--无敌小闹钟

执行程序后，闹钟为托盘。 点击后托盘出现设置几秒、几分后提示。 ontimer=秒＋秒*60。 显示剩余时间。 用messagebox（确定、取消）。 checkbox是否关机。如不选择“确定”则30秒后关机。 托盘提示用来显示“剩余时间” ------------ 增加： MP3作为铃声 可输入时间 在弄个到计时界面，如点开始当前窗口关闭，出现一个新的窗口，时间显示想电子表那样，可以有按钮（重设时间，铃声模式，关闭闹钟等） ------- 响60秒后停 起启动是否可以呼出界面 保存选过的歌，用注册表方式 -------- 发现问题：运行闹钟时不能关机。 之前就曾发现弹出messagebox后，用shutdown -s 不能关机。后来加了free解决了问题。原以为是messagebox引来的问题，看来不是 不是图标的问题 哈哈，原来是FormCloseQuery，大意了，大意了 ----------- 由于使用了CANCLOSE，导致了运行闹钟时，电脑不能关闭应用程序，而不能关机，灵机一动，设sender=form1，就OK了。 ------------ 后来发现设sender=form1失效，原因在于关闭命令本身就是由form1发出来的 ------------ 把单击出闹钟改为双击，另外还修正了其它一些小BUG ---------- 改用Application.Terminate，去掉canc的全局变量 ------------- 记得帮小闹钟加个密码 －－－－－－ 增加了关机运行时，提醒关闹钟 ---------- 让应用程序不显示,但进程还是会显示 -------- 修改了dialogs，把inputquery的Tedit改成Tmaskedit --------- 帮助，是否阻止关机 --------- 加入日程。