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

Question

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

Answer 1

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

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

Answer 2

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

如果您可以控制整个端到端流程，那么可以通过隐藏控制台窗口，捕获输出并将其发送到您创建的窗口来做一些聪明的事情（无需当然是近距离的能力。

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