Delphi关机程序界面设计与实现-编程实验室

Delphi关机程序界面设计与实现

在日常使用电脑时，你是否遇到过这样的场景：下载任务还没完成，但又不想通宵开机；或者需要在特定时间自动关闭设备以节省电力？一个轻量、可靠且操作直观的定时关机工具，往往比复杂的系统脚本更实用。而用Delphi 7来开发这样一个小工具，不仅效率高，还能充分发挥其强大的可视化编程优势。

本文将带你从零开始构建一款功能完整的“定时关机程序”。它支持两种模式：倒计时关机和指定时间关机，具备实时倒计时显示、取消操作、系统托盘驻留以及现代化UI皮肤美化等功能。整个过程不依赖第三方复杂框架，核心逻辑清晰，适合初学者练手，也适合作为自动化工具的实际案例。

界面布局与交互设计

程序主窗体采用简洁的卡片式布局，通过分组框划分功能区域，提升可读性。我们使用了 Skin++ 控件库（如TsGroupBox、TsRadioButton等）替代原生 VCL 组件，使界面摆脱传统灰色风格，呈现出类似 Android 的现代感。

关机模式选择

用户可以通过两个单选按钮切换关机方式：

倒计时关机：输入秒数后启动倒计时
指定时间关机：设定具体日期与时间执行关机

object sRadioButton1: TsRadioButton Left = 8 Top = 24 Width = 100 Height = 19 Caption = '倒计时关机：' Checked = True TabOrder = 0 TabStop = True SkinData.SkinSection = 'CHECKBOX' end object sRadioButton2: TsRadioButton Left = 8 Top = 56 Width = 88 Height = 19 Caption = '定时关机：' TabOrder = 1 SkinData.SkinSection = 'CHECKBOX' end

默认选中“倒计时”模式，符合大多数用户的直觉操作习惯。当用户切换到“指定时间”模式时，日期和时间输入控件即刻可用。

时间与数值输入控件

为了保证输入准确性并提升体验，我们选用专用的时间/日期控件：

倒计时输入（支持增减调节）

object sEdit1: TsDecimalSpinEdit Left = 104 Top = 24 Width = 81 Height = 21 Color = 15790320 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack ParentFont = False TabOrder = 4 Text = '6000' Value = 6000.0 DecimalPlaces = 0 end

该控件自带上下箭头，避免手动输入错误，初始值设为 6000 秒（约 100 分钟），是一个合理的默认等待时间。

日期与时间选择器

object shutdate: TsDateEdit Left = 96 Top = 56 Width = 105 Height = 21 EditMask = '!9999/99/99;1; ' MaxLength = 10 Text = ' - - ' ParentFont = False end object shuttime: TsTimePicker Left = 204 Top = 56 Width = 77 Height = 21 Text = '00:00:00' end

TsDateEdit提供格式化输入掩码，防止非法字符；TsTimePicker支持小时、分钟、秒的精确设置，两者结合确保时间设定准确无误。

核心功能实现

启动关机任务

点击“定时关机”按钮后，程序根据当前选中的模式计算关机时间，并启动后台倒计时：

procedure TForm1.Button1Click(Sender: TObject); var ShutdownTime: TDateTime; begin if sRadioButton1.Checked then begin CountDownSeconds := StrToIntDef(sEdit1.Text, 0); if CountDownSeconds <= 0 then Exit; Label2.Caption := FormatFloat('0', CountDownSeconds) + ' 秒后关机'; Timer1.Enabled := True; end else if sRadioButton2.Checked then begin try ShutdownTime := StrToDateTime(shutdate.Text + ' ' + shuttime.Text); CountDownSeconds := Trunc((ShutdownTime - Now) * 24 * 60 * 60); if CountDownSeconds <= 0 then begin ShowMessage('设定时间必须大于当前时间！'); Exit; end; Timer1.Enabled := True; Label2.Caption := FormatDateTime('yyyy-mm-dd hh:nn:ss', ShutdownTime) + ' 执行关机'; except on E: Exception do ShowMessage('日期或时间格式无效，请检查输入！'); end; end; end;

这里做了几层防护：
- 使用StrToIntDef防止非数字输入导致异常
- 对指定时间进行合法性校验（不能早于当前时间）
- 异常捕获机制处理格式转换失败问题

实时倒计时与自动关机

通过TTimer组件每秒更新一次剩余时间，到达零时触发关机：

object Timer1: TTimer Enabled = False OnTimer = Timer1Timer Left = 424 Top = 8 end

procedure TForm1.Timer1Timer(Sender: TObject); begin Dec(CountDownSeconds); if CountDownSeconds <= 0 then begin Timer1.Enabled := False; InitiateShutdown(nil, nil, 0, SHUTDOWN_POWEROFF, 0); end else begin Label2.Caption := FormatFloat('0', CountDownSeconds) + ' 秒后关机'; end; end;

⚠️ 注意：InitiateShutdown是 Windows AdvAPI32 提供的安全关机函数，相比旧的ExitWindowsEx更推荐用于现代系统。

声明如下：

function InitiateShutdown(pComputer: PWideChar; pReason: PWideChar; dwReasonFlags: DWORD; dwOptions: DWORD; dwTimeout: DWORD): DWORD; stdcall; external 'advapi32.dll'; const SHUTDOWN_POWEROFF = $00000008;

此函数需管理员权限才能成功调用，否则会静默失败——这也是为什么很多用户反馈“点了没反应”的根本原因。

取消关机任务

随时可以点击“取消关机”中止计划：

procedure TForm1.Button2Click(Sender: TObject); begin Timer1.Enabled := False; Label2.Caption := '已取消关机任务'; CountDownSeconds := 0; end;

简单有效，清空状态提示用户操作已完成。

系统托盘集成与用户体验优化

为了让程序在最小化时不被误关闭，我们将其隐藏至系统托盘区，并提供右键菜单控制。

托盘图标与弹出菜单

object PopupMenu1: TPopupMenu object N1: TMenuItem Caption = '显示窗口' OnClick = N1Click end object N2: TMenuItem Caption = '退出程序' OnClick = N2Click end end

配合TNotifyIconData或第三方组件（如TsTrayIcon），实现图标配、气泡提示和事件响应。

例如，在窗体最小化时自动隐藏到托盘：

procedure TForm1.FormResize(Sender: TObject); begin if WindowState = wsMinimized then begin Visible := False; TrayIcon1.Visible := True; end; end; procedure TForm1.N1Click(Sender: TObject); begin Visible := True; WindowState := wsNormal; Application.BringToFront; end; procedure TForm1.N2Click(Sender: TObject); begin Timer1.Enabled := False; Application.Terminate; end;

这样既节省任务栏空间，又保证程序持续运行，符合系统工具类软件的设计规范。

视觉升级：Skin++ 实现现代化 UI

Delphi 原生界面长期被人诟病“老旧”，但我们可以通过 Skin++ 轻松实现视觉跃迁。

object sSkinManager1: TsSkinManager InternalSkins = < item Name = 'Android OS (internal)' Data = { ...内嵌资源... } end> SkinName = 'Android OS' end

只需一行代码启用皮肤管理器，所有标准控件自动应用主题样式，包括按钮圆角、颜色渐变、鼠标悬停效果等。更重要的是，Skin++ 支持高 DPI 缩放，在 2K/4K 屏幕上依然清晰锐利。

这种“低侵入、高回报”的美化方案特别适合小型项目快速提升专业度。

构建与部署实践

项目结构清晰，便于打包发布：

/Delphi_Shutdown_Program │ ├── Shutdown.dpr // 主程序入口 ├── Unit1.pas // 主窗体逻辑 ├── Unit1.dfm // 窗体设计文件 ├── build.bat // 编译脚本 └── lib/ └── Skin++DLL.dll // 运行时依赖库

一键编译脚本（build.bat）

@echo off dcc32 Shutdown.dpr -CC if errorlevel 1 ( echo 编译失败！ ) else ( echo 构建成功：shutdown.exe copy shutdown.exe ..\release\ )

生成的shutdown.exe可独立运行，只需将Skin++DLL.dll放在同一目录即可。

✅ 建议对可执行文件添加数字签名，减少杀毒软件误报风险
✅ 若目标环境无管理员权限，可引导用户使用 Windows 任务计划程序替代

功能拓展思路

虽然核心是“关机”，但这个架构极具延展性：

扩展方向	实现方式
定时重启	调用`InitiateShutdown(..., SHUTDOWN_REBOOT, ...)`
休眠/睡眠	调用`SetSuspendState(False, False, False)`
执行脚本	在倒计时结束后`ShellExecute`调用 BAT 或 PowerShell
多任务调度	添加列表控件，支持多个定时任务排队
网络唤醒联动	结合 Wake-on-LAN 实现完整电源管理