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

Question

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

score 5 · Accepted Answer

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

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

score 3 · Accepted Answer

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

如果您可以控制整个端到端流程，您可以通过隐藏控制台窗口、捕获输出并将其发送到您创建的窗口（当然没有关闭功能）来做一些聪明的事情。

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

2 回答 2