Perl：获取当前光标图标/类型答案

【问题标题】：Perl: Get the current cursor icon/typePerl：获取当前光标图标/类型
【发布时间】：2021-12-31 00:40:05
【问题描述】：

我正在用 Perl 编写一个应用程序，它要求我在运行时获取当前光标类型。

我需要创建一个计时器来定期检查鼠标，如果鼠标是某种类型，则暂停或执行其他操作。光标可能在另一个程序中运行 - 不一定在 TK/GTK 应用程序中。我对计时器部分很好，但找不到任何可以让我获得当前光标类型的东西。

有人知道怎么做吗？

【问题讨论】：

【解决方案1】：

您必须至少指定要在其上完成此操作的操作系统。

由于鼠标光标由操作系统而不是 Perl 管理，因此您必须找到一种从操作系统获取该信息的方法。

如果应用程序在 Windows 上，我会开始查看 Win32::GUI。

希望这会有所帮助。

编辑：

由于您使用的是 Windows，因此您必须查看一个 Windows API 函数来获取该信息，例如 http://msdn.microsoft.com/en-us/library/windows/desktop/ms648389(v=vs.85).aspx

然后，找到一种从 Perl 访问该函数的方法 - Win32::API 可能是一个有用的模块

【讨论】：

谢谢。是的，它适用于 Windows，但在 Win32::GUI 中找不到任何内容。
谢谢 - 我试过了，但不行。完全确定这是我做错了什么： $function = Win32::API->new( 'user32.dll', 'getCursorInfo', 'II' ); $return = $function->Call();打印 $return;