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

Question

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

有谁知道怎么做？

谢谢，

詹姆斯

Answer 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可能是一个有用的模块来做到这一点