gpt4 book ai didi

perl - 我可以使用 `Win32::GUI` 为我的命令提示符 Perl 程序创建系统托盘图标吗?

转载 作者:行者123 更新时间:2023-12-02 00:37:32 26 4
gpt4 key购买 nike

我有一个运行无限循环的 Perl 脚本。我希望能够将其最小化到系统托盘。我可以使用 Win32::GUI 创建系统托盘图标,最大化时显示命令提示符和脚本输出吗?

编辑:我的 perl 脚本本身就是一个进程。它连续运行。如何在另一个进程中运行系统托盘图标?

最佳答案

是的,你可以。

use Win32::GUI();

my $main = Win32::GUI::Window->new(
-name => 'Main',
-text => 'Perl',
-width => 200,
-height => 200
);

my $icon = new Win32::GUI::Icon('GUIPERL.ICO');
my $ni = $main->AddNotifyIcon(
-name => "NI",
-icon => $icon,
-tip => "Hello"
);

Win32::GUI::Dialog();

sub Main_Terminate {
return -1;
}

sub Main_Minimize {
$main->Disable();
$main->Hide();
return 1;
}

sub NI_Click {
$main->Enable();
$main->Show();
return 1;
}

复制自:

Win32-GUI Tutorial Part4

如果你想在不同的进程中使用你的托盘图标,你可以使用 fork() 但是你需要一些方法来沟通父进程和子进程。

关于perl - 我可以使用 `Win32::GUI` 为我的命令提示符 Perl 程序创建系统托盘图标吗?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3975428/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com