Perl 控制台窗口 - 如何使其不可关闭？答案

【问题标题】：Perl console window - how to make it non-closable?Perl 控制台窗口 - 如何使其不可关闭？
【发布时间】：2012-12-25 13:30:05
【问题描述】：

我想知道在控制台中使用 Perl 时是否有任何方法可以隐藏关闭按钮或至少使其不可点击。我知道在使用 GUI 时这是可能的，但我需要制作一个基于控制台的应用程序，并且不希望用户故意关闭它。

【问题讨论】：

【解决方案1】：

use strict;
use Win32::Console::ANSI qw/ SetCloseButton /;

$SIG{INT}='IGNORE';   # no Ctrl-C interrupt
SetCloseButton(0);    # no close button

【讨论】：

【解决方案2】：

我认为您不能阻止用户关闭 Windows 命令提示符窗口。您不仅需要隐藏关闭按钮，还必须隐藏相关的系统菜单项、上下文菜单项（取决于 Windows 的风格），并捕获Alt + F4 键盘快捷键。

如果您可以控制整个端到端流程，您可以通过隐藏控制台窗口、捕获输出并将其发送到您创建的窗口（无需当然是 close 能力）。

否则，您将不得不相信您的用户是大男孩和大女孩，并且不会关闭窗口。

【讨论】：