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

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

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

Alt+F4

键盘快捷键

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

---

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

任何进程都可以关闭，那么您想要实现什么？您所说的“控制台中的Perl”是什么意思？安慰那是终点站的窗户吗？哪个操作系统？哪个终端？我正在尝试实现，您需要编写一个命令来关闭它。控制台中的Perl是MS Windows的终端，这很聪明。您知道它是否也会捕获Alt+F4键盘快捷键吗？这是一个很好的解决方案，谢谢。我不介意用Alt+F4组合来关闭窗口，这对我来说已经足够了。

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

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