xsjtxy 发表于 2010-4-8 12:57:00

控件指针覆盖

前几日超级版本给了个用ANI做窗口指针的实例
现在还有点问题就是:窗口控件上的指针还是默认指针。该怎么修改一下把它也覆盖了呢?

#include <WinAPI.au3>



$sCursorFile = "a.ani"

$hCursor = _LoadCursorFromFile($sCursorFile)



$hGUI = GUICreate("SetCursor", 400, 300)



$hGC = DllCallbackRegister("_SetCursorProc", "int", "hWnd;uint;wparam;lparam")

$hOGC = _WinAPI_SetWindowLong($hGUI, -4, DllCallbackGetPtr($hGC))


GUISetCursor(16)
GUISetState()

While GUIGetMsg() <> -3

WEnd



GUIDelete($hGUI)

DllCallbackFree($hGC)

DllCall("User32.dll", "int", "DestroyCursor", "hWnd", $hCursor)



Func _SetCursorProc($hWnd, $iMsg, $iwParam, $ilParam)

      DllCall("User32.dll", "hWnd", "SetCursor", "hWnd", $hCursor)

      Return _WinAPI_CallWindowProc($hOGC, $hWnd, $iMsg, $iwParam, $ilParam)

EndFunc      ;==>_SetCursorProc



Func _LoadCursorFromFile($sCursorFile)

      Local $iResult

      $iResult = DllCall("User32.dll", "hWnd", "LoadCursorFromFile", "str", $sCursorFile)

      Return $iResult

EndFunc
页: [1]
查看完整版本: 控件指针覆盖