아이콘을 변경하는 방법 포인터를 가져 가면 마우스 포인터

Question

어떻게 마우스 포인터에서 아이콘을 변경할 수 있습니까?

내가 원한다면 : 내 마우스 장치에 마우스 포인터를 올려 놓으면 마우스 포인터의 아이콘이 자동으로 바뀌고 (만약 내가 그 영역에 가면) 다시 기본 아이콘으로 변경해야합니다.

나는 오토 핫키 언어로 코드를 만들려고했다.

하지만 작동하지 않습니다.

1 - 키보드의 F7 키를 눌러야합니다.

2 - 그리고 내 마우스 포인터 아이콘을 변경하려면 컴퓨터를 다시 시작해야합니다.

f7:: 
RegWrite, REG_SZ, HKEY_CURRENT_USER, Control Panel\Cursors\,Arrow,%SystemRoot%\cursors\aero_link.cur 
return 

(당신은 나에게 괜찮 파이썬 또는 MS-DOS와 같은 다른 스크립팅 언어로 작성되는 코드 예제가있는 경우.)

Answer 1

AutoHotkey를을 - 아래 코드는 사용자가 커서를 변경할 수 있음을 보여주고있다 고정 된 위치,이 경우에는 화면의 중앙에 위치합니다. 이것이 성취 된 방법은 내장 변수 A_screenHeight와 A_screenWidth를 사용하여 위/아래와 오른쪽/왼쪽 경계를 정의하는 것입니다. 그런 다음 타이머를 사용하여 GetMousePos 명령을 사용하여 커서가 해당 범위 내에 있는지 확인하십시오. 마우스가 범위 내에 있으면 AutoHotkey Forums의 Serenity가 코딩 한 SetSystemCursor() 함수가 호출되며이 함수는 다양한 DllCall을 사용하여 커서를 변경합니다.

#Persistent 
#SingleInstance Force 

CoordMode, Mouse, Screen 

Left := Round((A_screenWidth/2)/2) 
Right := Left * 3 
Up := Round((A_screenHeight/2)/2) 
Down := Up * 3 

SetTimer, WatchCursor, 100 
OnExit, CleanUp 
return 

WatchCursor: 
MouseGetPos, x, y 
If (x >= Left && y >= Up && x <= Right && y <= Down) 
    applied ?: SetSystemCursor("IDC_CROSS"), applied := true 
else 
    (!applied) ?: RestoreCursors(), applied := false 
return 

cleanUp: 
RestoreCursors() 
ExitApp 
Return 

esc::GoSub, CleanUp 



; https://autohotkey.com/board/topic/32608-changing-the-system-cursor/ 
SetSystemCursor(Cursor = "", cx = 0, cy = 0) 
{ 
    BlankCursor := 0, SystemCursor := 0, FileCursor := 0 ; init 

    SystemCursors = 32512IDC_ARROW,32513IDC_IBEAM,32514IDC_WAIT,32515IDC_CROSS 
    ,32516IDC_UPARROW,32640IDC_SIZE,32641IDC_ICON,32642IDC_SIZENWSE 
    ,32643IDC_SIZENESW,32644IDC_SIZEWE,32645IDC_SIZENS,32646IDC_SIZEALL 
    ,32648IDC_NO,32649IDC_HAND,32650IDC_APPSTARTING,32651IDC_HELP 

    If Cursor = ; empty, so create blank cursor 
    { 
     VarSetCapacity(AndMask, 32*4, 0xFF), VarSetCapacity(XorMask, 32*4, 0) 
     BlankCursor = 1 ; flag for later 
    } 
    Else If SubStr(Cursor,1,4) = "IDC_" ; load system cursor 
    { 
     Loop, Parse, SystemCursors, `, 
     { 
      CursorName := SubStr(A_Loopfield, 6, 15) ; get the cursor name, no trailing space with substr 
      CursorID := SubStr(A_Loopfield, 1, 5) ; get the cursor id 
      SystemCursor = 1 
      If (CursorName = Cursor) 
      { 
       CursorHandle := DllCall("LoadCursor", Uint,0, Int,CursorID) 
       Break     
      } 
     } 
     If CursorHandle = ; invalid cursor name given 
     { 
      Msgbox,, SetCursor, Error: Invalid cursor name 
      CursorHandle = Error 
     } 
    } 
    Else If FileExist(Cursor) 
    { 
     SplitPath, Cursor,,, Ext ; auto-detect type 
     If Ext = ico 
      uType := 0x1  
     Else If Ext in cur,ani 
      uType := 0x2   
     Else ; invalid file ext 
     { 
      Msgbox,, SetCursor, Error: Invalid file type 
      CursorHandle = Error 
     }  
     FileCursor = 1 
    } 
    Else 
    { 
     Msgbox,, SetCursor, Error: Invalid file path or cursor name 
     CursorHandle = Error ; raise for later 
    } 
    If CursorHandle != Error 
    { 
     Loop, Parse, SystemCursors, `, 
     { 
      If BlankCursor = 1 
      { 
       Type = BlankCursor 
       %Type%%A_Index% := DllCall("CreateCursor" 
       , Uint,0, Int,0, Int,0, Int,32, Int,32, Uint,&AndMask, Uint,&XorMask) 
       CursorHandle := DllCall("CopyImage", Uint,%Type%%A_Index%, Uint,0x2, Int,0, Int,0, Int,0) 
       DllCall("SetSystemCursor", Uint,CursorHandle, Int,SubStr(A_Loopfield, 1, 5)) 
      }   
      Else If SystemCursor = 1 
      { 
       Type = SystemCursor 
       CursorHandle := DllCall("LoadCursor", Uint,0, Int,CursorID) 
       %Type%%A_Index% := DllCall("CopyImage" 
       , Uint,CursorHandle, Uint,0x2, Int,cx, Int,cy, Uint,0)  
       CursorHandle := DllCall("CopyImage", Uint,%Type%%A_Index%, Uint,0x2, Int,0, Int,0, Int,0) 
       DllCall("SetSystemCursor", Uint,CursorHandle, Int,SubStr(A_Loopfield, 1, 5)) 
      } 
      Else If FileCursor = 1 
      { 
       Type = FileCursor 
       %Type%%A_Index% := DllCall("LoadImageA" 
       , UInt,0, Str,Cursor, UInt,uType, Int,cx, Int,cy, UInt,0x10) 
       DllCall("SetSystemCursor", Uint,%Type%%A_Index%, Int,SubStr(A_Loopfield, 1, 5))   
      }   
     } 
    } 
} 

RestoreCursors() 
{ 
    SPI_SETCURSORS := 0x57 
    DllCall("SystemParametersInfo", UInt,SPI_SETCURSORS, UInt,0, UInt,0, UInt,0) 
}