Delphi自动关机程序通过定时器实现
Delphi 写的自动关机程序，结构清晰、代码量不多，逻辑也挺直观的。用的是 Windows 底层的 API，像SetWaitableTimer，操作起来比你想的还简单。你只要设定一个时间点，程序就能自动帮你关机，省心又省电。
定时器的设定用的是CreateWaitableTimer，搭配SetWaitableTimer来设置触发时间，基本不绕弯。像这种写法：
DueTime := -5 * 60 * 10000;
hTimer := CreateWaitableTimer(nil, False, nil);
SetWaitableTimer(hTimer, DueTime, 0, nil, False);表示 5 分钟后触发关机，挺直给的。
窗体界面上你可以加个DateTimePicker控件，让用户自己设时间，交互会好不少。关机触发后，如果想取消，可以用CancelWaitableTimer，留个兜底比较稳。
而且这个程序还挺适合拓展的，比如根据 CPU 使用率来触发，或者下载完自动关机啥的。就是要你稍微熟点Windows API，搭配 Delphi 用起来会更顺手。
，如果你刚好在搞 Delphi 项目，想做个实用的小工具，这个自动关机程序还挺值得一看。想参考的话，可以去看看Delphi 开发自动关机程序实现方案，里面讲得也挺清楚。
如果你想把电脑任务跑完自动关掉、又刚好在用 Delphi，可以试试这个思路，写起来快，实用性也高。
文件大小：78.78KB
评论区