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命令提示符窗口。您不仅必须隐藏关闭按钮，而且还必须隐藏关联的系统菜单项，上下文菜单项（取决于窗口的风味），并捕获Alt + F4键盘快捷键。

如果您控制了整个端到端过程，则可以通过将控制台窗口隐藏，捕获输出并将其发送到您创建的窗口（无需）来做些聪明的事情当然，紧密的功能）。

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