AutoHotkey Community

ABOUT:
Gui,Destroy
Gui,Add,Text,y-5,`t
Gui,Add,Picture,Icon100,%SystemRoot%\system32\SHELL32.dll
Gui,Font,Bold
Gui,Add,Text,x+10 yp+10,Hand v1.0
Gui,Font
Gui,Add,Text,xm,Changes the cursor to a hand over links.
Gui,Add,Text,y+0,`t
Gui,Add,Picture,Icon47,%SystemRoot%\system32\SHELL32.dll
Gui,Font,Bold
Gui,Add,Text,x+10 yp+10,1 Hour Software by Skrommel
Gui,Font
Gui,Add,Text,xm,For more tools and information, please stop by at
Gui,Font,CBlue Underline
Gui,Add,Text,xm GWWW,http://www.donationcoders.com/skrommel
Gui,Font
Gui,Add,Text,y+0,`t
Gui,Add,Picture,Icon25,%SystemRoot%\system32\SHELL32.dll
Gui,Font,Bold
Gui,Add,Text,x+10 yp+10,AutoHotkey
Gui,Font
Gui,Add,Text,xm,This program is made using AutoHotkey
Gui,Font,CBlue Underline
Gui,Add,Text,xm GAUTOHOTKEY,http://www.autohotkey.com
Gui,Font
Gui,Add,Text,y+0,`t
Gui,Add,Button,GABOUTOK Default w75,&OK
Gui,Show,,%applicationname% About

;Load the cursor and start the "hook"
hCurs:=DllCall("LoadCursor","UInt",NULL,"Int",32649,"UInt") ;IDC_HAND
OnMessage(0x200,"WM_MOUSEMOVE")
Return

AUTOHOTKEY:
Run,http://www.autohotkey.com,,UseErrorLevel
Return

WWW:
Run,http://www.donationcoders.com/skrommel,,UseErrorLevel
Return

ABOUTOK:
Gui,Destroy
;Disable the "hook" and destroy the cursor
OnMessage(0x200,"")
DllCall("DestroyCursor","Uint",hCurs)
Return

GuiClose:
ExitApp

;The "hook"
WM_MOUSEMOVE(wParam,lParam)
{
  Global hCurs
  MouseGetPos,,,,ctrl
  ;Only change over certain controls, use Windows Spy to find them.
  If ctrl in Static9,Static14
    DllCall("SetCursor","UInt",hCurs)
  Return
}

WM_MOUSEMOVE(wParam,lParam)
{
  Global hCurs
  MouseGetPos,,,,ctrl
  ;Only change over certain controls, use Windows Spy to find them.
  If ctrl in Static9,Static14
    DllCall("SetCursor","UInt",hCurs)
  Return
}

WM_MOUSEMOVE(wParam,lParam)
{
  GuiTitleToChangeCursorIn:="The exact title shown in the TitleBar" ; edit the text in quotes
  IfWinActive, %GuiTitleToChangeCursorIn% ; only do the following if the correct window is active
    {
  Global hCurs
  MouseGetPos,,,,ctrl
  ;Only change over certain controls, use Windows Spy to find them.
 If ctrl in Static9,Static14 ; you will have to change this to your control id's
    DllCall("SetCursor","UInt",hCurs)
   }
  Return
}

Gui, Add, ListBox, x16 y17 w420 h120  vGui1MyListBox, MyListBox
Gui1MyListBox_Tooltip = Gui1MyListBox hover tip..
Gui1MyListBox_MouseCursor = 32649

Gui, Add, Edit, x16 y137 w420 h90  vGui1MyEdit, MyEdit
Gui1MyEdit_Tooltip = Gui1MyEdit hover tip..
Gui1MyEdit_MouseCursor = 32648

Gui, Add, Button, x286 y237 w90 h20  vGui1MyButton, MyButton
Gui1MyButton_Tooltip = Gui1MyButton hover tip..
Gui1MyButton_MouseCursor = %A_ScriptDir%\grab.cur   ; if not found.. it doesn't do anything..

Gui, Show, w453 h281, Example..
OnMessage(0x200, "GuiHoverControl") ; Start tooltip/mouse cursor routine..
Return
;-----------------
GuiEscape:
GuiClose:
ExitApp

; ///////////////////// Function ///////////////////////
GuiHoverControl()
{
    static CurrControl, PrevControl, _Tooltip, hCurs
    CurrControl := A_GuiControl
    If (CurrControl <> PrevControl and not InStr(CurrControl, " "))
    {
        ToolTip  ; Turn off any previous tooltip.
        SetTimer, GuiDisplayToolTip, 1000
        PrevControl := CurrControl
        DllCall("DestroyCursor","Uint",hCurs)
        hCurs =
    }
    If (%CurrControl%_MouseCursor)
    {
        If ((SubStr(%CurrControl%_MouseCursor, -3, 4)) = ".cur" or (SubStr(%CurrControl%_MouseCursor, -3, 4)) = ".ani")
        {
          If hCurs =
          {
            IfExist, % %CurrControl%_MouseCursor
              hCurs:=DllCall("LoadCursorFromFile","Str",%CurrControl%_MouseCursor)
          }
        }
        Else
        {
          If hCurs =
            hCurs:=DllCall("LoadCursor","UInt",NULL,"Int",%CurrControl%_MouseCursor,"UInt")
        }
        If hCurs <>
         DllCall("SetCursor","UInt",hCurs)
    }
    return

    GuiDisplayToolTip:
    SetTimer, GuiDisplayToolTip, Off
    ToolTip % %CurrControl%_Tooltip
    SetTimer, GuiRemoveToolTip, 3000
    return

    GuiRemoveToolTip:
    SetTimer, GuiRemoveToolTip, Off
    ToolTip
    return
}

Column1Buttons =
(
32642   NW to SE - Small
32643   NE to SW - Small
32644   WE - Small
32645   NS - Small
32646   NSEW - Small
32648   IDC_NO  (Slashed circle)
32649   IDC_HAND  (Icon Hand)
32650   IDC_APPSTARTING
32651   IDC_HELP
32652   NS - Big
)

Column2Buttons =
(
32653   WE - Big
32654   NSEW - Big
32655   N - Big
32656   S - Big
32657   W - Big
32658   E - Big
32659   NW - Big
32660   NE - Big
32661   SW - Big
32662   SE - Big
)

y=0
Loop, Parse, Column1Buttons, `n
{
  Gui, Add, Button, x5 y%y% w220 h25 vGui1Button%A_Index% gGui1Button, %A_LoopField%
  Gui1Button%A_Index%_MouseCursor := SubStr(A_LoopField, "1", 5)
  y+=25
}
y=0
Loop, Parse, Column2Buttons, `n
{
  BtnNum := A_Index+10
  Gui, Add, Button, x226 y%y% w220 h25 vGui1Button%BtnNum% gGui1Button, %A_LoopField%
  Gui1Button%BtnNum%_MouseCursor := SubStr(A_LoopField, "1", 5)
  y+=25
}

Gui, Show, w450 ,--Mouse Cursors In user32.dll--
OnMessage(0x200, "GuiHoverControl") ; Start tooltip/mouse cursor routine..
Return
;-----------------
Gui1Button:
GuiControlGet, tmp1,, % A_GuiControl
clipboard := SubStr(tmp1, 1, 5)
tmp1 =
MsgBox, ,--Mouse Cursors In user32.dll--,'%clipboard%' has been copied to the clipboard.., 4
return
;-----------------
GuiEscape:
GuiClose:
ExitApp