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可能是一個有用的模塊來做到這一點