Jump to content

Mouse display hourglass


Fay
 Share

Recommended Posts

Hey I looked up a few old posts, but I was having some difficulty understanding the what and why on some of the commands for this.

I want to have the mouse turn into something else( like an hourglass) so that the person using the program understands not to press anything and screw up the script.

if you could point me in the right direction, I would greatly appreciate it.

Link to comment
Share on other sites

I'll try to help out. For the DllCall functions, here is what you would need to look up to figure out how everything works:

monoceres Tutorial:     '?do=embed' frameborder='0' data-embedContent>>

LoadCursorFromFile:   http://msdn.microsoft.com/en-us/library/windows/desktop/ms648392(v=vs.85).aspx

SetSystemCursor:        http://msdn.microsoft.com/en-us/library/windows/desktop/ms648395(v=vs.85).aspx

DestroyCursor:            http://msdn.microsoft.com/en-us/library/windows/desktop/ms648386(v=vs.85).aspx

;http://www.autoitscript.com/forum/topic/22214-change-activate-mouse-cursor/

_SetCursor(@WindowsDir & "\cursors\banana.ani", $OCR_NORMAL) 

;==================================================================
; $s_file - file to load cursor from
; $i_cursor - system cursor to change
;==================================================================
Func _SetCursor($s_file, $i_cursor)
   Local $newhcurs, $lResult
   $newhcurs = DllCall("user32.dll", "int", "LoadCursorFromFile", "str", $s_file) ;DllCall returns array $newhcurs - this data is stored in $newhcurs[0]
   If Not @error Then
      $lResult = DllCall("user32.dll", "int", "SetSystemCursor", "int", $newhcurs[0], "int", $i_cursor) ;$newhcurs[0] is used a HCURSOR argument, $i_cursor is the ID (See MSDN link)
      If Not @error Then
         Sleep(5000)
         $lResult = DllCall("user32.dll", "int", "DestroyCursor", "int", $newhcurs[0]) ;Free up our resources after sleeping for 5 seconds
      Else
         MsgBox(0, "Error", "Failed SetSystemCursor")
      EndIf
   Else
      MsgBox(0, "Error", "Failed LoadCursorFromFile")
   EndIf
EndFunc  ;==>_SetCursor

That should get you started.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...