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

时间:2012-04-08 15:33:49

标签: perl cursor mouse

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

有谁知道怎么做?

谢谢,

詹姆斯

1 个答案:

答案 0 :(得分:2)

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

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

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

希望这有帮助。

修改

由于你在Windows上,你必须查看一个Windows API函数来获取这些信息,如http://msdn.microsoft.com/en-us/library/windows/desktop/ms648389(v=vs.85).aspx

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