Delphi7实现InputBox掩码

今日在开发无界面程序时，需通过口令校验来控制后续逻辑执行。由于无法使用窗体控件，故选择 inputbox 进行用户交互。但在实际使用中发现，输入内容以明文形式直接显示，存在明显的安全风险。为此尝试查找 inputbox 支持密码掩码的内置方案，但未发现官方或现成的实现方式。继而考虑从底层入手，通过对系统引用的单元文件进行定制化修改来达成目标。经过分析与实践，最终成功实现了带掩码功能的 inputbox。具体操作流程如下所述。该过程不仅有效解决了当前开发中的关键问题，也加深了对 delphi 运行时机制和对话框底层原理的理解，为今后处理同类无界面交互场景提供了可复用的技术思路。

1、按住 Ctrl 键并单击 inputbox 函数名，即可跳转至其定义所在的 Dialogs.Pas 单元文件，进而查看原始实现代码。

2、如图1所示：

3、扩展 inputbox 函数签名，新增一个 char 类型参数 mark，并同步更新其函数声明及函数体。由于 inputbox 内部依赖 inputquery 函数完成核心交互逻辑，因此还需同步修改 inputquery 的接口定义，同样追加该字符参数，确保两处调用链上的参数结构完全一致，从而保障数据传递的完整性、调用流程的稳定性以及整体行为的可控性，规避潜在的类型不匹配或逻辑断裂问题。

4、同步调整 inputbox 与 inputquery 函数内部的具体实现逻辑，包括参数接收、条件判断及控件属性设置等环节。

5、在 inputbox 调用 inputquery 的位置，为其传入新增的 mark 参数，保持上下文数据连贯。

6、于 inputquery 函数体内加入掩码控制逻辑：依据传入的 mark 值动态设置运行时创建的 TEdit 控件的 PasswordChar 属性；若 mark 为空（#0），则跳过设置，维持默认明文行为。因 PasswordChar 属性本身为 char 类型，故 mark 必须定义为 char，以保证类型兼容与功能准确生效。

7、插入如下关键代码段：

8、四、全部函数改造完成后，仅需在主程序中调用 inputbox 时补充指定一个 char 类型的掩码字符（如 ‘*’ 或 ‘●’）即可启用密码模式。

9、保存所有修改后的单元文件与主程序源码，完成编译与调试验证。