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