Display FARR Near Pointer

[ewemoa]

The following AHK_L script should display FARR's main window and then move it close to the pointer.  I use this when there's something near the pointer I want to drop in FARR's main window (reduce dragging distance and hence risk of mis-drop).

May want to tweak the full path to FARR's exe (see FarrFullPath in code) and/or the hotkey (see KeySequence in code).

Tested on XP SP3 and 7 Pro SP1.

promotion

The script may end up as part of Nea.

Code: Autohotkey [Select]

1. #SingleInstance
2. #Persistent
3.  
4. ; change this as desired
5. KeySequence := "^+p"
6.  
7. ; XXX: may need to change this
8. FarrFullPath := A_ProgramFiles . "\FindAndRunRobot\FindAndRunRobot.exe"
9.  
10. CoordMode, Mouse, Screen
11.  
12. ShowFARRAtPointer()
13. {
14.   global FarrFullPath
15.   SplitPath, FarrFullPath, FarrExe
16.   Process, Exist, % FarrExe
17.   If (ErrorLevel != 0) ; yes FARR
18.   {
19.     MouseGetPos, X, Y
20.     Run, % FarrFullPath . " -show"
21.     WinWaitActive, % "Find and Run Robot 2 ahk_class TMainForm"
22.     If (ErrorLevel == 1)
23.     {
24.       OutputDebug, % "WinWaitActive timed out waiting for FARR"
25.       Return
26.     }
27.     ; XXX: will this work for multi-display set-ups?
28.     WinMove, % "Find and Run Robot 2 ahk_class TMainForm", , % X, % Y
29.   }
30.   Else ; no FARR
31.   {
32.     ; OK/Cancel - esc dismisses dialog
33.     MsgBox, 1, % "Did Not Find Running FARR"
34.           , % "FARR doesn't seem to be running.`n`nOk to start FARR?"
35.     IfMsgBox, OK
36.     {
37.       Run, % FarrFullPath
38.     }
39.   }
40.   Return
41. }
42.  
43. Hotkey, % KeySequence, DoShowFARRAtPointer
44.  
45. Return
46.  
47. DoShowFARRAtPointer:
48. {
49.   ShowFARRAtPointer()
50.   Return
51. }

Updated: as per Nod5's suggestion to use A_ProgramFiles

[mouser]

neat. 

[Nod5]

nice  

Tip: Autohotkey's variable A_ProgramFiles makes the default script compatible with different localized paths for the program files folder.

[Select]

FarrFullPath = %A_ProgramFiles%\FindAndRunRobot\FindAndRunRobot.exe

edit: I made a mistake in the code above (had both qoutes and %'s), fixed now.

[ewemoa]

Thanks a lot for the tip, Nod5 

Think I'll update the original post.